結果
問題 | No.157 2つの空洞 |
ユーザー |
![]() |
提出日時 | 2015-02-27 00:10:57 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 26 ms / 2,000 ms |
コード長 | 870 bytes |
コンパイル時間 | 157 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-06-23 21:51:22 |
合計ジャッジ時間 | 969 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 16 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($w,$h)=<>=~/\d+/g;$/=\1;for$y(1..$h){for$x(1..$w+1){$f{$x,$y}=<>;}}l1:{for$y(1..$h){for$x(1..$w){if($f{$x,$y}eq'.'){$f{$x,$y}=A;last l1;}}}}for(0..99){for$y(1..$h){for$x(1..$w){if($f{$x,$y}eq'.'){if($f{$x-1,$y}eq A || $f{$x+1,$y}eq A || $f{$x,$y-1}eq A || $f{$x,$y+1}eq A ){$f{$x,$y}=A;}}}}}for$l(0..99){for$y(1..$h){for$x(1..$w){if($f{$x,$y}eq 'A'){if($f{$x-1,$y}eq '.'|| $f{$x+1,$y}eq '.' || $f{$x,$y-1}eq '.' || $f{$x,$y+1}eq '.' ){print $l;exit;}if($f{$x-1,$y}eq'#'){$f{$x-1,$y}=B;}if($f{$x+1,$y}eq'#'){$f{$x+1,$y}=B;}if($f{$x,$y-1}eq'#'){$f{$x,$y-1}=B;}if($f{$x,$y+1}eq'#'){$f{$x,$y+1}=B;}}}}for$y(1..$h){for$x(1..$w){if($f{$x,$y}eq B){$f{$x,$y}=A;}}}}