結果
問題 | No.385 カップ麺生活 |
ユーザー |
![]() |
提出日時 | 2016-07-01 23:26:22 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 49 ms / 2,000 ms |
コード長 | 326 bytes |
コンパイル時間 | 303 ms |
コンパイル使用メモリ | 6,692 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-10-04 22:28:28 |
合計ジャッジ時間 | 1,555 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 32 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub isprime{($v)=@_;for($i=2;$i*$i<=$v;++$i){if($v%$i==0){return 0;}}return $v>1;}$m=<>;<>;@c=glob<>;$b[$m]=1;for($j=$m;--$j;){for(@c){if($b[$j+$_] && $a[$j]<$a[$j+$_]+1){$b[$j]=1;$a[$j]=$a[$j+$_]+1;}}if(isprime$j){$s+=$a[$j];}}($yasui)=sort{$a-$b}@c;print$s+$m/$yasui|0;