結果
問題 | No.393 2本の竹 |
ユーザー | tails |
提出日時 | 2016-07-15 14:29:07 |
言語 | Perl (5.38.0) |
結果 |
AC
|
実行時間 | 30 ms / 1,000 ms |
コード長 | 129 bytes |
コンパイル時間 | 88 ms |
コンパイル使用メモリ | 5,376 KB |
実行使用メモリ | 10,748 KB |
最終ジャッジ日時 | 2023-08-25 02:46:43 |
合計ジャッジ時間 | 1,998 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge15 |
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 7 ms
5,112 KB |
testcase_01 | AC | 7 ms
5,200 KB |
testcase_02 | AC | 6 ms
5,212 KB |
testcase_03 | AC | 6 ms
5,220 KB |
testcase_04 | AC | 6 ms
5,100 KB |
testcase_05 | AC | 6 ms
5,216 KB |
testcase_06 | AC | 6 ms
5,340 KB |
testcase_07 | AC | 6 ms
5,196 KB |
testcase_08 | AC | 7 ms
5,176 KB |
testcase_09 | AC | 12 ms
5,960 KB |
testcase_10 | AC | 8 ms
5,740 KB |
testcase_11 | AC | 9 ms
5,772 KB |
testcase_12 | AC | 8 ms
5,560 KB |
testcase_13 | AC | 8 ms
5,628 KB |
testcase_14 | AC | 7 ms
5,400 KB |
testcase_15 | AC | 25 ms
10,748 KB |
testcase_16 | AC | 30 ms
10,728 KB |
testcase_17 | AC | 7 ms
5,252 KB |
testcase_18 | AC | 6 ms
5,076 KB |
testcase_19 | AC | 6 ms
5,212 KB |
testcase_20 | AC | 6 ms
5,360 KB |
testcase_21 | AC | 6 ms
5,108 KB |
testcase_22 | AC | 9 ms
6,040 KB |
testcase_23 | AC | 11 ms
6,092 KB |
testcase_24 | AC | 6 ms
5,420 KB |
testcase_25 | AC | 6 ms
5,136 KB |
testcase_26 | AC | 6 ms
5,272 KB |
testcase_27 | AC | 10 ms
5,936 KB |
コンパイルメッセージ
Unquoted string "r" may clash with future reserved word at Main.pl line 1. Unquoted string "r" may clash with future reserved word at Main.pl line 1. Main.pl syntax OK
ソースコード
<>;($x,$y)=glob,<>,$s=$h=r,print grep(substr($h|=2x$_.$h,$a=$-=($s+=$_)-$y,$-=($s<$x?$s:$x)+1-$-)=~r,sort{$a-$b}glob<>).$/while<>