結果

問題 No.432 占い(Easy)
ユーザー neko_the_shadowneko_the_shadow
提出日時 2016-10-16 21:53:36
言語 Scheme
(Gauche-0.9.14)
結果
WA  
実行時間 -
コード長 641 bytes
コンパイル時間 85 ms
コンパイル使用メモリ 6,948 KB
実行使用メモリ 20,864 KB
最終ジャッジ日時 2024-11-22 12:34:02
合計ジャッジ時間 3,406 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 26 ms
16,000 KB
testcase_01 AC 25 ms
16,000 KB
testcase_02 AC 24 ms
15,872 KB
testcase_03 AC 25 ms
16,000 KB
testcase_04 AC 28 ms
16,512 KB
testcase_05 WA -
testcase_06 AC 25 ms
16,000 KB
testcase_07 AC 27 ms
16,512 KB
testcase_08 AC 26 ms
16,128 KB
testcase_09 AC 26 ms
16,256 KB
testcase_10 WA -
testcase_11 AC 60 ms
19,840 KB
testcase_12 AC 362 ms
20,736 KB
testcase_13 AC 363 ms
20,864 KB
testcase_14 WA -
testcase_15 WA -
testcase_16 WA -
testcase_17 AC 24 ms
15,872 KB
testcase_18 AC 192 ms
20,736 KB
testcase_19 AC 139 ms
20,736 KB
testcase_20 AC 77 ms
20,736 KB
testcase_21 AC 84 ms
20,864 KB
testcase_22 WA -
testcase_23 WA -
testcase_24 WA -
testcase_25 AC 26 ms
16,384 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define (digits x)
  (let loop ((n x) (ls '()))
    (if (< n 10)
      (cons n ls)
      (loop (quotient n 10) 
            (cons (modulo n 10) ls)))))

(define (f ls)
  (if (= 1 (length ls))
    (car ls)
    (f (map (lambda (x y) (+  (modulo   (+ x y) 10)
                              (quotient (+ x y) 10)))
            (cdr ls)
            ls))))

(define (input->list)
  (let loop ((line (read)) (ls '()))
    (if (eof-object? line)
      (cdr (reverse ls))
      (loop (read) (cons line ls)))))

(define (MAIN)
  (for-each
    (lambda (ans) (begin (display ans) (newline)))
    (map (lambda (x) (f (digits x))) (input->list))))

(MAIN)
0