結果

問題 No.398 ハーフパイプ(2)
コンテスト
ユーザー te-sh
提出日時 2017-07-27 16:04:28
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 27 ms / 2,000 ms
コード長 1,036 bytes
コンパイル時間 799 ms
コンパイル使用メモリ 105,824 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-12 21:15:23
合計ジャッジ時間 2,094 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 17
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;

const combi = pascalTriangle!int(6);

void main()
{
  auto x = (readln.chomp.to!real * 4).to!int;

  auto dp = new long[][][](101, 5, 401);
  foreach (i; 0..101) {
    dp[i][0][0] = 1;
    foreach (j; 1..5)
      foreach (k; 1..401)
        foreach (m; 1..i+1)
          if (k >= m)
            dp[i][j][k] += dp[i][j-1][k-m];
  }

  auto r = 0L;
  foreach (i; 0..100)
    foreach (j; i+1..101)
      foreach (ni; 1..6)
        foreach (nj; 1..7-ni) {
          auto m = 6 - ni - nj;
          auto y = x - (ni - 1) * i - (nj - 1) * j - m * i;
          if (y < 0) continue;
          r += dp[j - i - 1][m][y] * combi[6][ni] * combi[6-ni][nj];
        }

  if (x % 4 == 0) ++r;

  writeln(r);
}

pure T[][] pascalTriangle(T)(size_t n)
{
  auto t = new T[][](n + 1);
  t[0] = new T[](1);
  t[0][0] = 1;
  foreach (i; 1..n+1) {
    t[i] = new T[](i + 1);
    t[i][0] = t[i][$-1] = 1;
    foreach (j; 1..i)
      t[i][j] = t[i - 1][j - 1] + t[i - 1][j];
  }
  return t;
}
0