結果

問題 No.302 サイコロで確率問題 (2)
コンテスト
ユーザー ゴリポン先生
提出日時 2026-08-17 10:53:17
言語 D
(dmd 2.112.0)
コンパイル:
dmd -fPIE -m64 -w -wi -O -release -inline -I/opt/dmd/src/druntime/import/ -I/opt/dmd/src/phobos -L-L/opt/dmd/linux/lib64/ -fPIC _filename_
実行:
./Main
結果
AC  
実行時間 713 ms / 6,000 ms
+ 813µs
コード長 814 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 5,052 ms
コンパイル使用メモリ 199,936 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2026-08-17 10:53:50
合計ジャッジ時間 8,152 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 20
権限があれば一括ダウンロードができます
コンパイルメッセージ
/home/linuxbrew/.linuxbrew/opt/dmd/include/dlang/dmd/core/checkedint.d(814): Warning: cannot inline function `core.checkedint.mulu!().mulu`
ulong mulu()(ulong x, uint y, ref bool overflow)
      ^

ソースコード

diff #
raw source code 

module main;
// https://kmjp.hatenablog.jp/entry/2015/11/14/0930 より
// 確率、動的計画法、数値積分
import std;

void main()
{
	// 入力
	long N = readln.chomp.to!long;
	long L, R;
	readln.chomp.formattedRead("%d %d", L, R);
	// 答えの計算
	L = min(6 * N, max(N, L));
	R = min(6 * N, R);

	if (N <= 8000) {
		const di = 1 / 6.0;
		auto from = uninitializedArray!(double[])(6 * N + 10), to = from.dup;
		from[] = 0;
		from[0] = 1;
		foreach (i; 0 .. N) {
			to[] = 0;
			foreach (j; i .. 6 * i + 1)
				foreach (x; 1 .. 7)
					to[j + x] += from[j] * di;
			swap(from, to);
		}
		writefln("%.12f", from[L .. R + 1].sum);
	} else {
		double ave = N * 3.5;
		double var = N * 35.0 / 12;
		writefln("%.12f", (erf((R + 0.5 - ave) / sqrt(2 * var)) - erf((L - 0.5 - ave) / sqrt(2 * var))) / 2);
	}
}
0