結果

問題 No.240 ナイト散歩
ユーザー tails
提出日時 2015-07-10 22:32:11
言語 Perl
(5.16.3)
結果
AC  
実行時間 4 ms
コード長 249 Byte
コンパイル時間 13 ms
使用メモリ 2,244 KB
最終ジャッジ日時 2018-09-26 02:33:29

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
99_challenge01.txt AC 3 ms
2,240 KB
99_challenge02.txt AC 3 ms
2,240 KB
challenge01.txt AC 4 ms
2,236 KB
challenge02.txt AC 3 ms
2,236 KB
sample1.txt AC 3 ms
2,240 KB
sample2.txt AC 4 ms
2,240 KB
sample3.txt AC 4 ms
2,244 KB
sample4.txt AC 4 ms
2,236 KB
system_test1.txt AC 4 ms
2,236 KB
system_test2.txt AC 4 ms
2,240 KB
system_test3.txt AC 4 ms
2,236 KB
system_test4.txt AC 4 ms
2,240 KB
system_test5.txt AC 4 ms
2,240 KB
system_test6.txt AC 4 ms
2,240 KB
system_test7.txt AC 3 ms
2,236 KB
system_test8.txt AC 4 ms
2,240 KB
system_test9.txt AC 4 ms
2,240 KB
system_test10.txt AC 3 ms
2,240 KB
test1.txt AC 4 ms
2,240 KB
test2.txt AC 4 ms
2,240 KB
test3.txt AC 3 ms
2,240 KB
test4.txt AC 4 ms
2,244 KB
test5.txt AC 4 ms
2,240 KB
test6.txt AC 3 ms
2,240 KB
test7.txt AC 3 ms
2,240 KB
test8.txt AC 3 ms
2,240 KB
test9.txt AC 4 ms
2,236 KB
test10.txt AC 4 ms
2,236 KB
test11.txt AC 4 ms
2,236 KB
test12.txt AC 3 ms
2,236 KB
test13.txt AC 4 ms
2,236 KB
test14.txt AC 3 ms
2,240 KB
test15.txt AC 4 ms
2,236 KB
test16.txt AC 4 ms
2,240 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$h{"0 0"}=1;for(0..2){($x,$y)=/\S+/g,
map$h{$_}=1,
($x-2).$".($y-1),
($x-2).$".($y+1),
($x-1).$".($y-2),
($x-1).$".($y+2),
($x+1).$".($y-2),
($x+1).$".($y+2),
($x+2).$".($y-1),
($x+2).$".($y+1) for keys%h}
($x,$y)=<>=~/\d+/g;
print$h{"$x $y"}?YES:NO
0