結果

問題 No.108 トリプルカードコンプ
ユーザー te-sh
提出日時 2017-01-28 00:16:49
言語 D
(dmd 2.109.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
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

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