結果
問題 |
No.527 ナップサック容量問題
|
ユーザー |
![]() |
提出日時 | 2018-05-31 19:43:58 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 739 ms / 2,000 ms |
コード長 | 200 bytes |
コンパイル時間 | 291 ms |
コンパイル使用メモリ | 7,196 KB |
実行使用メモリ | 8,704 KB |
最終ジャッジ日時 | 2024-06-30 08:37:00 |
合計ジャッジ時間 | 9,223 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 37 |
コンパイルメッセージ
Unquoted string "inf" may clash with future reserved word at Main.pl line 19. Main.pl syntax OK
ソースコード
<>; @vw=<>; $V=pop@vw; for(@vw){ ($v,$w)=split; for(reverse 0..@d){ $d[$_+$w]+=$-=$d[$_]+$v-$d[$_+$w] } } for(@d){ if($_==$V){ $a||=$i } if($_>$V){ $b||=$i-1 } ++$i } print$a,$/,$b||inf