結果

問題 No.527 ナップサック容量問題
ユーザー %20%20
提出日時 2018-05-31 21:13:05
言語 Perl
(5.38.2)
結果
AC  
実行時間 838 ms / 2,000 ms
コード長 128 bytes
コンパイル時間 72 ms
コンパイル使用メモリ 6,684 KB
実行使用メモリ 9,472 KB
最終ジャッジ日時 2024-06-30 08:40:59
合計ジャッジ時間 9,999 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 3 ms
6,816 KB
testcase_01 AC 4 ms
6,944 KB
testcase_02 AC 3 ms
6,944 KB
testcase_03 AC 5 ms
6,944 KB
testcase_04 AC 3 ms
6,940 KB
testcase_05 AC 141 ms
7,040 KB
testcase_06 AC 626 ms
9,088 KB
testcase_07 AC 400 ms
8,192 KB
testcase_08 AC 98 ms
6,944 KB
testcase_09 AC 3 ms
6,944 KB
testcase_10 AC 597 ms
8,704 KB
testcase_11 AC 261 ms
7,424 KB
testcase_12 AC 160 ms
7,040 KB
testcase_13 AC 691 ms
9,088 KB
testcase_14 AC 106 ms
6,940 KB
testcase_15 AC 240 ms
7,680 KB
testcase_16 AC 4 ms
6,944 KB
testcase_17 AC 143 ms
7,040 KB
testcase_18 AC 190 ms
7,168 KB
testcase_19 AC 6 ms
6,944 KB
testcase_20 AC 91 ms
6,940 KB
testcase_21 AC 777 ms
9,472 KB
testcase_22 AC 407 ms
8,320 KB
testcase_23 AC 629 ms
8,704 KB
testcase_24 AC 41 ms
6,940 KB
testcase_25 AC 317 ms
8,064 KB
testcase_26 AC 276 ms
7,552 KB
testcase_27 AC 312 ms
7,936 KB
testcase_28 AC 235 ms
7,680 KB
testcase_29 AC 838 ms
9,216 KB
testcase_30 AC 4 ms
6,944 KB
testcase_31 AC 5 ms
6,944 KB
testcase_32 AC 5 ms
6,940 KB
testcase_33 AC 5 ms
6,944 KB
testcase_34 AC 5 ms
6,944 KB
testcase_35 AC 255 ms
7,808 KB
testcase_36 AC 5 ms
6,940 KB
testcase_37 AC 150 ms
7,040 KB
testcase_38 AC 191 ms
7,296 KB
testcase_39 AC 188 ms
7,296 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "a" may clash with future reserved word at Main.pl line 1.
Unquoted string "c" may clash with future reserved word at Main.pl line 1.
Unquoted string "inf" may clash with future reserved word at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

<>;($v,$w)=split,map$w?$@[$_+$w]+=$-=$@[$_]+$v-$@[$_+$w]:(${(a..c)[$@[$_]<=>$v]}=$_-1),sort{1}0..@@for<>;print$a+1||1,$/,$b||inf
0