結果

問題 No.61 リベリオン
コンテスト
ユーザー tails
提出日時 2020-09-10 11:12:06
言語 Perl
(5.40.0)
結果
AC  
実行時間 4,314 ms / 5,000 ms
コード長 187 bytes
コンパイル時間 523 ms
コンパイル使用メモリ 6,692 KB
実行使用メモリ 7,424 KB
最終ジャッジ日時 2024-12-22 21:36:52
合計ジャッジ時間 9,968 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "a" may clash with future reserved word at Main.pl line 1.
Unquoted string "j" may clash with future reserved word at Main.pl line 1.
Name "main::e" used only once: possible typo at Main.pl line 1.
Name "main::f" used only once: possible typo at Main.pl line 1.
Name "main::g" used only once: possible typo at Main.pl line 1.
Name "main::j" used only once: possible typo at Main.pl line 1.
Name "main::d" used only once: possible typo at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

<>;for$l(<>){$$_=<+$l>for a..j;$h%$_|$i%$_||($h/=-$_,$i/=-$_,$c*=-$_)for-13..-2;%a=0;$a{abs$a-($f+=$h)%(2*$a),abs$b-($g+=$i)%(2*$b)}++while$c--&&$j++<900;print$a{$a-$d,$b-$e}?Hit:Miss,$/}
0