#181063 (Perl) No.58 イカサマなサイコロ - yukicoder

提出ソース

結果

問題	No.58 イカサマなサイコロ
ユーザー	%20
提出日時	2017-06-18 00:58:36
言語	Perl (5.40.0)
結果	WA (最新) AC (最初)
実行時間	-
コード長	125 bytes
コンパイル時間	225 ms
コンパイル使用メモリ	55,936 KB
実行使用メモリ	61,952 KB
最終ジャッジ日時	2024-10-01 11:58:34
合計ジャッジ時間	21,425 ms
ジャッジサーバーID （参考情報）	judge4 / judge1

このコードへのチャレンジ
（要ログイン）

ファイルパターン	結果
other	AC * 9 WA * 1

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

($N,$K)=<>;
map{
	$-=0;
	$-+=$_>$K?1+rand 6:4+rand 3for 1..$N;
	$--=0|1+rand 6for 1..$N;
	$%+=!!$-;
}1..7.2e5;
print$%/7.2e5

0