結果
問題 | No.639 An Ordinary Sequence |
ユーザー |
|
提出日時 | 2018-01-26 23:32:52 |
言語 | Scheme (Gauche-0.9.8) |
結果 |
AC
|
実行時間 | 19 ms |
コード長 | 361 Byte |
コンパイル時間 | 57 ms |
使用メモリ | 8,260 KB |
最終ジャッジ日時 | 2019-12-08 06:21:14 |
テストケース
テストケース表示入力 | 結果 | 実行時間 使用メモリ |
---|---|---|
in01.txt | AC | 18 ms
8,244 KB |
in02.txt | AC | 19 ms
8,220 KB |
in03.txt | AC | 19 ms
8,228 KB |
in04.txt | AC | 19 ms
8,220 KB |
in05.txt | AC | 19 ms
8,232 KB |
in06.txt | AC | 17 ms
8,224 KB |
in07.txt | AC | 18 ms
8,224 KB |
in08.txt | AC | 18 ms
8,224 KB |
in09.txt | AC | 18 ms
8,228 KB |
in10.txt | AC | 18 ms
8,228 KB |
in11.txt | AC | 19 ms
8,220 KB |
in12.txt | AC | 18 ms
8,240 KB |
in13.txt | AC | 18 ms
8,220 KB |
in14.txt | AC | 19 ms
8,232 KB |
in15.txt | AC | 18 ms
8,240 KB |
in16.txt | AC | 19 ms
8,256 KB |
sample1.txt | AC | 17 ms
8,232 KB |
sample2.txt | AC | 18 ms
8,260 KB |
コンパイルメッセージ
ソースコード
(define (main args) (let ([n (read)] [tbl (make-hash-table)]) (define (seq x) (cond [(zero? x) 1] [(hash-table-exists? tbl x) (hash-table-get tbl x)] [else (let ([y (+ (seq (quotient x 3)) (seq (quotient x 5)))]) (hash-table-put! tbl x y) y)])) (print (seq n)) ) 0)