結果

問題 No.446 ゆきこーだーの雨と雪 (1)
ユーザー neko_the_shadowneko_the_shadow
提出日時 2016-11-20 18:28:09
言語 Scheme
(Gauche-0.9.14)
結果
AC  
実行時間 25 ms / 2,000 ms
コード長 545 bytes
コンパイル時間 24 ms
コンパイル使用メモリ 5,120 KB
実行使用メモリ 17,024 KB
最終ジャッジ日時 2024-05-05 12:01:48
合計ジャッジ時間 2,056 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 25 ms
16,768 KB
testcase_01 AC 23 ms
17,024 KB
testcase_02 AC 23 ms
17,024 KB
testcase_03 AC 25 ms
17,024 KB
testcase_04 AC 24 ms
16,896 KB
testcase_05 AC 25 ms
16,768 KB
testcase_06 AC 24 ms
17,024 KB
testcase_07 AC 24 ms
16,896 KB
testcase_08 AC 24 ms
16,768 KB
testcase_09 AC 23 ms
16,896 KB
testcase_10 AC 23 ms
16,896 KB
testcase_11 AC 24 ms
16,896 KB
testcase_12 AC 24 ms
16,896 KB
testcase_13 AC 24 ms
16,896 KB
testcase_14 AC 23 ms
17,024 KB
testcase_15 AC 23 ms
16,896 KB
testcase_16 AC 23 ms
16,768 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

(use srfi-13)
(use srfi-14)

(define (validate-integer? token)
  (let ((ls (string->list token)))
    (or (and (equal? #\0 (car ls)) (= 1 (length ls)))
        (and (not (equal? #\0 (car ls)))
             (every (cut char-set-contains? char-set:digit <>) ls)))))

(define (validate? token)
  (and (validate-integer? token)
        (let ((x (string->number token)))
          (and (<= 0 x) (<= x 12345)))))

(define (Main)
  (let ((a (read-line)) (b (read-line)))
    (display (if (every validate? (list a b)) "OK" "NG"))
    (newline)))

(Main)
0