結果
問題 | No.555 世界史のレポート |
ユーザー |
![]() |
提出日時 | 2017-08-11 22:56:47 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 10 ms / 2,000 ms |
コード長 | 191 bytes |
コンパイル時間 | 294 ms |
コンパイル使用メモリ | 6,016 KB |
実行使用メモリ | 6,144 KB |
最終ジャッジ日時 | 2024-10-12 21:38:23 |
合計ジャッジ時間 | 1,213 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 20 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$n=<>;($c,$v)=glob<>;$e=9e99;for$d(1..16){$a=0; $f=0;++$a while $a**$d<$n;++$f while ($a-1)**($d-$f)*$a**$f<$n;$o=$c*$d+$v*(($a-2)*($d-$f)+($a-1)*$f);$e=$o if $e>$o;}print $e;