結果

問題 No.639 An Ordinary Sequence
ユーザー ducktail
提出日時 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
テストケース一括ダウンロード
コンパイルメッセージ

                

                
ソースコード

            

                
                
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