結果
問題 | No.86 TVザッピング(2) |
ユーザー |
![]() |
提出日時 | 2019-08-24 22:43:37 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 5 ms / 5,000 ms |
コード長 | 267 bytes |
コンパイル時間 | 182 ms |
コンパイル使用メモリ | 5,376 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-12-25 12:51:45 |
合計ジャッジ時間 | 1,405 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 30 |
コンパイルメッセージ
Possible precedence problem on bitwise & operator at Main.pl line 1. Name "main::z" used only once: possible typo at Main.pl line 1. Main.pl syntax OK
ソースコード
<>;map{y/.\n/ /d,$c&1?$_ eq$p?++$e:$_ eq$p=~s/ #*/$&=~y,#, ,r/er||/ /<$p=~/ /&&$e?++$c:($_^=$p=~y/ #/AD/r,/^g*((ad*|d*a)g*)*$/)?($d+=s/a(d+)|(d+)a/$1a$2/g,y/adg/ #/,$p=$_):($c=9):s/^#* \K *(?= #*$)/$&=~y, ,#,r/e?($p=$_,++$c):($c+=/ /*9)}<>,$z;print$c==2&$d<2?YES:NO