結果
| 問題 | No.639 An Ordinary Sequence | 
| コンテスト | |
| ユーザー |  | 
| 提出日時 | 2018-01-29 15:35:17 | 
| 言語 | D (dmd 2.109.1) | 
| 結果 | 
                                AC
                                 
                             | 
| 実行時間 | 1 ms / 1,000 ms | 
| コード長 | 584 bytes | 
| コンパイル時間 | 602 ms | 
| コンパイル使用メモリ | 96,880 KB | 
| 実行使用メモリ | 6,944 KB | 
| 最終ジャッジ日時 | 2024-06-12 23:43:20 | 
| 合計ジャッジ時間 | 1,283 ms | 
| ジャッジサーバーID (参考情報) | judge4 / judge5 | 
(要ログイン)
| ファイルパターン | 結果 | 
|---|---|
| sample | AC * 2 | 
| other | AC * 17 | 
ソースコード
import std.algorithm, std.conv, std.range, std.stdio, std.string;
void readV(T...)(ref T t){auto r=readln.splitter;foreach(ref v;t){v=r.front.to!(typeof(v));r.popFront;}}
T[] readArray(T)(size_t n){auto a=new T[](n),r=readln.splitter;foreach(ref v;a){v=r.front.to!T;r.popFront;}return a;}
T[] readArrayM(T)(size_t n){auto a=new T[](n);foreach(ref v;a)v=readln.chomp.to!T;return a;}
void main()
{
  long n; readV(n);
  uint[long] memo;
  memo[0] = 1;
  uint calc(long k)
  {
    if (k in memo) return memo[k];
    return memo[k] = calc(k/3) + calc(k/5);
  }
  writeln(calc(n));
}
            
            
            
        