結果
問題 | No.323 yuki国 |
ユーザー |
![]() |
提出日時 | 2015-12-16 23:17:13 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 950 bytes |
コンパイル時間 | 304 ms |
コンパイル使用メモリ | 7,068 KB |
実行使用メモリ | 6,948 KB |
最終ジャッジ日時 | 2024-09-16 06:02:46 |
合計ジャッジ時間 | 1,518 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge6 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 6 |
other | AC * 29 WA * 3 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
sub e{ $i=@q; $q[$i]=$q[$j],$i=$j while $i&&$q[$j=$i-1>>1]<$_[0]; $q[$i]=$_[0]; } sub d{ $x=$q[0]; $y=pop@q; if(@q){ $i=0; $q[$i]=$q[$j],$i=$j while($j=$i*2+1)<@q&&$q[$j+1<@q&&$q[$j]<$q[$j+1]?++$j:$j]>$y; $q[$i]=$y; } $x; } sub g{ my($a,$y,$x)=@_; if($y>=0&&$y<$h&&$x>=0&&$x<$w){ $a+=vec($m[$y],$x,8)==$yu?1:-1; if($a>0||$y==$gy&&$x==$gx){ e($a<<16|$y<<8|$x); } } } sub f{ my($a,$y,$x)=@_; @q=(); &g; while(@q){ $t=d; $a=$t>>16; $y=$t>>8&255; $x=$t&255; return 1 if $y==$gy&&$x==$gx&&$a>=$gb; if($d[$y][$x]){ return 1 if $d[$y][$x]<$a; }else{ $d[$y][$x]=$a; g($a,$y,$x-1); g($a,$y,$x+1); g($a,$y-1,$x); g($a,$y+1,$x); } } } sub i{<>=~/\d+/g} ($h,$w)=i; ($a,$si,$sj)=i; ($b,$gi,$gj)=i; if(!($a+$si+$sj+$b+$gi+$gj&1)){ @m=<>; $a-=vec($m[$si],$sj,8)==42?1:-1; $yu=42;$gy=$gi;$gx=$gj;$gb=$b; $b1=f($a,$si,$sj); $yu=46;$gy=$si;$gx=$sj;$gb=$a; $b2=f($b,$gi,$gj); } print$b1*$b2?Yes:No