結果

問題 No.408 五輪ピック
ユーザー %20%20
提出日時 2020-06-28 09:46:43
言語 Perl
(5.38.2)
結果
AC  
実行時間 605 ms / 5,000 ms
コード長 165 bytes
コンパイル時間 394 ms
コンパイル使用メモリ 5,400 KB
実行使用メモリ 26,100 KB
最終ジャッジ日時 2023-09-21 10:10:50
合計ジャッジ時間 10,582 ms
ジャッジサーバーID
（参考情報） 		judge12 / judge11
このコードへのチャレンジ（β）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 25 ms
11,988 KB
testcase_01 AC 25 ms
11,812 KB
testcase_02 AC 25 ms
11,728 KB
testcase_03 AC 25 ms
11,708 KB
testcase_04 AC 25 ms
11,780 KB
testcase_05 AC 428 ms
22,908 KB
testcase_06 AC 250 ms
18,492 KB
testcase_07 AC 349 ms
21,120 KB
testcase_08 AC 287 ms
19,568 KB
testcase_09 AC 306 ms
19,344 KB
testcase_10 AC 236 ms
18,084 KB
testcase_11 AC 225 ms
17,576 KB
testcase_12 AC 406 ms
22,200 KB
testcase_13 AC 428 ms
22,388 KB
testcase_14 AC 91 ms
14,116 KB
testcase_15 AC 443 ms
22,944 KB
testcase_16 AC 457 ms
22,968 KB
testcase_17 AC 443 ms
23,192 KB
testcase_18 AC 460 ms
23,652 KB
testcase_19 AC 473 ms
24,040 KB
testcase_20 AC 129 ms
15,460 KB
testcase_21 AC 79 ms
13,944 KB
testcase_22 AC 206 ms
17,936 KB
testcase_23 AC 605 ms
26,100 KB
testcase_24 AC 362 ms
22,508 KB
testcase_25 AC 368 ms
22,832 KB
testcase_26 AC 509 ms
25,044 KB
testcase_27 AC 364 ms
22,840 KB
testcase_28 AC 279 ms
19,196 KB
testcase_29 AC 281 ms
19,264 KB
testcase_30 AC 25 ms
11,820 KB
testcase_31 AC 25 ms
11,732 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Possible precedence problem on bitwise | operator at Main.pl line 1.
Possible precedence problem on bitwise | operator at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

<>;map{push@{-$_},-$_[--$|]for@_=glob}<>;//,map$$_=$$_?1:$',@$_ for@{-1};for$i(-2e4..(${-1}=0)){$z|=$$i*$$_&&$$i-$_&&$$_-$i&&$$i-$$_|$$i>0|$$_>0for@$i}print$z?YES:NO
0