結果

問題 No.463 魔法使いのすごろく🎲
ユーザー tails
提出日時 2016-12-14 01:36:09
言語 Perl
(5.40.0)
結果
AC  
実行時間 1,013 ms / 2,000 ms
コード長 236 bytes
コンパイル時間 57 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-12-23 15:04:29
合計ジャッジ時間 7,887 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 36
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
プレゼンテーションモードにする

($n,$m)=glob<>;
@c=(0,0,glob<>);
for$i((1..$n-1)x400){
    $e=$f=0;$b=1e99;
    for$j($i+1..$i+$m){
        $k=$n-abs($n-$j);
        $e+=$e[$k]/$m;
        $f+=$f[$k]/$m;
        $b=$f[$k]if$b>$f[$k];
    }
    $e[$i]=$c[$i]+($e<$b?$e:$b);
    $f[$i]=$c[$i]+$f;
}
print$e[1]
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0