結果
問題 | No.398 ハーフパイプ(2) |
ユーザー |
|
提出日時 | 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 |
ソースコード
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; }