結果

問題 No.108 トリプルカードコンプ
ユーザー te-shte-sh
提出日時 2017-01-28 00:16:49
言語 D
(dmd 2.106.1)
結果
AC  
実行時間 29 ms / 5,000 ms
コード長 756 bytes
コンパイル時間 2,984 ms
コンパイル使用メモリ 151,272 KB
実行使用メモリ 25,512 KB
最終ジャッジ日時 2023-09-03 00:59:59
合計ジャッジ時間 3,844 ms
ジャッジサーバーID
（参考情報） 		judge14 / judge11
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
4,376 KB
testcase_01 AC 1 ms
4,376 KB
testcase_02 AC 1 ms
4,376 KB
testcase_03 AC 1 ms
4,380 KB
testcase_04 AC 1 ms
4,376 KB
testcase_05 AC 2 ms
4,380 KB
testcase_06 AC 1 ms
4,380 KB
testcase_07 AC 29 ms
24,412 KB
testcase_08 AC 16 ms
25,512 KB
testcase_09 AC 15 ms
24,816 KB
testcase_10 AC 14 ms
24,364 KB
testcase_11 AC 14 ms
24,920 KB
testcase_12 AC 1 ms
4,380 KB
testcase_13 AC 5 ms
6,600 KB
testcase_14 AC 4 ms
6,064 KB
testcase_15 AC 4 ms
4,732 KB
testcase_16 AC 4 ms
4,768 KB
testcase_17 AC 3 ms
4,544 KB
testcase_18 AC 23 ms
23,396 KB
testcase_19 AC 18 ms
21,872 KB
testcase_20 AC 15 ms
23,708 KB
testcase_21 AC 20 ms
24,612 KB
testcase_22 AC 15 ms
23,120 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