結果
問題 | No.408 五輪ピック |
ユーザー |
![]() |
提出日時 | 2020-06-28 09:34:30 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 403 ms / 5,000 ms |
コード長 | 183 bytes |
コンパイル時間 | 198 ms |
コンパイル使用メモリ | 6,940 KB |
実行使用メモリ | 26,240 KB |
最終ジャッジ日時 | 2024-07-07 03:55:50 |
合計ジャッジ時間 | 6,684 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 32 |
コンパイルメッセージ
Possible precedence problem on bitwise | operator at Main.pl line 8. Main.pl syntax OK
ソースコード
$N=<>;map{push@{-$_},-$_[--$|]for@_=glob}<>;for$i(@{-1}){$$_=$$_?1:$i for@$i}${-1}=0;for$i(-$N..-1){$z|=$$i&&$$_&&$$i-$_&&$$_-$i&&$$i>0|$$_>0|$$i-$$_ for@$i}print$z?YES:NO