結果

問題 No.108 トリプルカードコンプ
ユーザー te-shte-sh
提出日時 2017-01-28 00:16:49
言語 D
(dmd 2.106.1)
結果
AC  
実行時間 27 ms / 5,000 ms
コード長 756 bytes
コンパイル時間 2,661 ms
コンパイル使用メモリ 152,364 KB
実行使用メモリ 25,128 KB
最終ジャッジ日時 2024-06-12 06:41:14
合計ジャッジ時間 3,726 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
6,812 KB
testcase_01 AC 1 ms
6,940 KB
testcase_02 AC 1 ms
6,944 KB
testcase_03 AC 1 ms
6,944 KB
testcase_04 AC 1 ms
6,940 KB
testcase_05 AC 1 ms
6,944 KB
testcase_06 AC 1 ms
6,940 KB
testcase_07 AC 27 ms
24,092 KB
testcase_08 AC 16 ms
25,128 KB
testcase_09 AC 14 ms
23,924 KB
testcase_10 AC 14 ms
23,968 KB
testcase_11 AC 15 ms
23,504 KB
testcase_12 AC 2 ms
6,940 KB
testcase_13 AC 4 ms
6,940 KB
testcase_14 AC 4 ms
6,940 KB
testcase_15 AC 3 ms
6,944 KB
testcase_16 AC 4 ms
6,944 KB
testcase_17 AC 3 ms
6,940 KB
testcase_18 AC 23 ms
22,612 KB
testcase_19 AC 16 ms
21,768 KB
testcase_20 AC 15 ms
23,644 KB
testcase_21 AC 21 ms
23,468 KB
testcase_22 AC 14 ms
22,148 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.algorithm, std.conv, std.range, std.stdio, std.string;
import std.math;      // math functions

void main()
{
  auto n = readln.chomp.to!size_t;
  auto ai = readln.split.to!(int[]);

  auto xi = new int[](3);
  foreach (a; ai)
    if (a < 3) ++xi[a];

  auto dp = new real[][][](n+1, n+1, n+1);
  dp[0][0][0] = 0;

  real calc(int x0, int x1, int x2) {
    if (!dp[x0][x1][x2].isNaN) {
      return dp[x0][x1][x2];
    } else {
      auto r = real(n);
      if (x0 > 0)
        r += calc(x0 - 1, x1 + 1, x2) * x0;
      if (x1 > 0)
        r += calc(x0, x1 - 1, x2 + 1) * x1;
      if (x2 > 0)
        r += calc(x0, x1, x2 - 1) * x2;

      return dp[x0][x1][x2] = r / (x0 + x1 + x2);
    }
  }

  writefln("%.7f", calc(xi[0], xi[1], xi[2]));
}
0