結果

問題 No.639 An Ordinary Sequence
ユーザー ducktail
提出日時 2018-01-26 23:32:52
言語 Scheme
(Gauche-0.9.5)
結果
AC  
実行時間 18 ms
コード長 361 Byte
コンパイル時間 13 ms
使用メモリ 7,932 KB
最終ジャッジ日時 2019-07-20 05:43:40

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
in01.txt AC 17 ms
7,932 KB
in02.txt AC 17 ms
7,900 KB
in03.txt AC 17 ms
7,900 KB
in04.txt AC 17 ms
7,900 KB
in05.txt AC 17 ms
7,900 KB
in06.txt AC 18 ms
7,912 KB
in07.txt AC 17 ms
7,900 KB
in08.txt AC 16 ms
7,912 KB
in09.txt AC 16 ms
7,896 KB
in10.txt AC 17 ms
7,916 KB
in11.txt AC 17 ms
7,912 KB
in12.txt AC 17 ms
7,924 KB
in13.txt AC 17 ms
7,908 KB
in14.txt AC 18 ms
7,916 KB
in15.txt AC 17 ms
7,916 KB
in16.txt AC 18 ms
7,920 KB
sample1.txt AC 17 ms
7,896 KB
sample2.txt AC 18 ms
7,916 KB
テストケース一括ダウンロード
コンパイルメッセージ

                

                

ソースコード

diff #
(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)
0