結果
問題 | No.870 無敵囲い |
ユーザー |
![]() |
提出日時 | 2019-08-30 21:23:44 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 8 ms / 300 ms |
コード長 | 267 bytes |
コンパイル時間 | 288 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 5,888 KB |
最終ジャッジ日時 | 2024-06-29 06:12:15 |
合計ジャッジ時間 | 1,103 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 18 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
$ax=2;$ay=8;$bx=3;$by=9;$cx=7;$cy=9;<>;while(<>){($x0,$y0,$x1,$y1)=glob;if($ax==$x0&&$ay==$y0){$ax=$x1;$ay=$y1;}if($bx==$x0&&$by==$y0){$bx=$x1;$by=$y1;}if($cx==$x0&&$cy==$y0){$cx=$x1;$cy=$y1;}}print $ax==5&&$ay==8&&$bx==4&&$by==8&&$cx==6&&$cy==8?YES:NO