結果
問題 | No.463 魔法使いのすごろく🎲 |
ユーザー |
![]() |
提出日時 | 2016-12-14 00:32:28 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 392 bytes |
コンパイル時間 | 41 ms |
コンパイル使用メモリ | 5,888 KB |
実行使用メモリ | 6,144 KB |
最終ジャッジ日時 | 2024-11-30 01:48:04 |
合計ジャッジ時間 | 5,528 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 26 WA * 10 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($n,$m)=glob<>;@c=(0,0,glob<>);for$s(reverse 1..3*($n-1)){for$i(reverse $s/3..$n-1){$e0[$i]=0;$e1[$i]=0;for$j(1..$m){$k=$i+$j<$n?$i+$j:$n*2-($i+$j);$e0[$i]+=$e0[$k]+$c[$k];$e1[$i]+=$e1[$k]+$c[$k];}$e0[$i]/=$m;$e1[$i]/=$m;for$j(1..$m){$k=$i+$j<$n?$i+$j:$n*2-($i+$j);if($e0[$i]>$e1[$k]+$c[$k]){$e0[$i]=$e1[$k]+$c[$k];}}}}print$e0[1];