結果
問題 | No.61 リベリオン |
ユーザー | tails |
提出日時 | 2020-09-10 17:27:46 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 2,316 ms / 5,000 ms |
コード長 | 177 bytes |
コンパイル時間 | 551 ms |
コンパイル使用メモリ | 5,388 KB |
実行使用メモリ | 6,664 KB |
最終ジャッジ日時 | 2023-08-25 02:02:31 |
合計ジャッジ時間 | 5,810 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge12 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 6 ms
5,200 KB |
testcase_01 | AC | 6 ms
5,224 KB |
testcase_02 | AC | 7 ms
5,336 KB |
testcase_03 | AC | 2,316 ms
6,660 KB |
testcase_04 | AC | 2,301 ms
6,664 KB |
testcase_05 | AC | 6 ms
5,360 KB |
コンパイルメッセージ
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. Smartmatch is experimental at Main.pl line 1. Name "main::d" 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::f" used only once: possible typo at Main.pl line 1. Name "main::e" used only once: possible typo at Main.pl line 1. Main.pl syntax OK
ソースコード
<>;for$l(<>){$$_=<+$l>for a..j;$h%$_|$i%$_||($h/=-$_,$i/=-$_,$c*=-$_)for-13..-2;print[1..$c*2**55>>55]~~sub{$a-$d-abs$a-($f+=$h)%(2*$a)|$b-$e-abs$b-($g+=$i)%(2*$b)}?Miss:Hit,$/}