結果

問題 No.155 生放送とBGM
ユーザー te-shte-sh
提出日時 2017-04-28 16:03:29
言語 D
(dmd 2.107.1)
結果
AC  
実行時間 455 ms / 6,000 ms
コード長 992 bytes
コンパイル時間 2,004 ms
コンパイル使用メモリ 154,936 KB
実行使用メモリ 494,540 KB
最終ジャッジ日時 2023-09-03 13:05:16
合計ジャッジ時間 5,360 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge12
このコードへのチャレンジ（β）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 420 ms
493,136 KB
testcase_01 AC 420 ms
493,620 KB
testcase_02 AC 395 ms
494,540 KB
testcase_03 AC 1 ms
4,376 KB
testcase_04 AC 19 ms
19,164 KB
testcase_05 AC 1 ms
4,380 KB
testcase_06 AC 455 ms
492,828 KB
testcase_07 AC 8 ms
7,116 KB
testcase_08 AC 3 ms
4,380 KB
testcase_09 AC 13 ms
9,420 KB
testcase_10 AC 4 ms
4,380 KB
testcase_11 AC 16 ms
9,828 KB
testcase_12 AC 21 ms
14,696 KB
testcase_13 AC 6 ms
4,712 KB
testcase_14 AC 345 ms
400,540 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;
import std.bitmanip;  // BitArray

void main()
{
  auto rd = readln.split.to!(int[]), n = rd[0], l = rd[1] * 60;
  auto si = readln.split.map!(s => s[0..2].to!int * 60 + s[3..5].to!int).array;

  if (l >= si.sum) {
    writeln(n);
    return;
  }

  auto dp1 = new long[][](l, n + 1);
  dp1[0][0] = 1;
  foreach (i; 0..n)
    foreach_reverse (j; si[i]..l)
      dp1[j][1..$] += dp1[j - si[i]][0..$-1];

  auto dp2 = new long[][][](n, l, n + 1);
  foreach (i; 0..n)
    foreach (j; 0..l) {
      dp2[i][j][] = dp1[j][];
      if (j >= si[i])
        dp2[i][j][1..$] -= dp2[i][j-si[i]][0..$-1];
    }

  auto fact = new real[](n + 1);
  fact[0] = 1;
  foreach (i; 1..n+1)
    fact[i] = fact[i-1] * i;

  auto r = real(0);
  foreach (j; 0..n)
    foreach (m; max(0, l-si[j])..l)
      foreach (k; 0..n) {
        auto a = dp2[j][m][k];
        r += a * fact[k] * fact[n-k-1] * (k+1);
      }

  writefln("%.10f", r / fact[n]);
}
0