結果
問題 | No.463 魔法使いのすごろく🎲 |
ユーザー |
![]() |
提出日時 | 2016-12-14 01:18:31 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 1,011 ms / 2,000 ms |
コード長 | 312 bytes |
コンパイル時間 | 216 ms |
コンパイル使用メモリ | 6,016 KB |
実行使用メモリ | 6,656 KB |
最終ジャッジ日時 | 2024-11-30 06:46:45 |
合計ジャッジ時間 | 8,303 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 36 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($n,$m)=glob<>;@c=(0,0,glob<>);for$i((1..$n-1)x400){$e0=0;$e1=0;for$j($i+1..$i+$m){$k=$j<$n?$j:$n*2-$j;$e0+=$e0[$k];$e1+=$e1[$k];}$e0/=$m;$e1/=$m;for$j($i+1..$i+$m){$k=$j<$n?$j:$n*2-$j;if($e0>$e1[$k]){$e0=$e1[$k];}}$e0[$i]=$e0+$c[$i];$e1[$i]=$e1+$c[$i];}print$e0[1];