結果

問題 No.446 ゆきこーだーの雨と雪 (1)
ユーザー neko_the_shadow
提出日時 2016-11-20 18:28:09
言語 Scheme
(Gauche-0.9.15)
結果
AC  
実行時間 24 ms / 2,000 ms
コード長 545 bytes
コンパイル時間 37 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 17,024 KB
最終ジャッジ日時 2024-11-27 09:02:30
合計ジャッジ時間 1,985 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 13
権限があれば一括ダウンロードができます

ソースコード

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