結果
問題 | No.61 リベリオン |
ユーザー | tails |
提出日時 | 2020-09-10 11:28:16 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 4,009 ms / 5,000 ms |
コード長 | 180 bytes |
コンパイル時間 | 456 ms |
コンパイル使用メモリ | 5,300 KB |
実行使用メモリ | 6,832 KB |
最終ジャッジ日時 | 2023-08-24 15:25:51 |
合計ジャッジ時間 | 9,053 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge11 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 6 ms
5,180 KB |
testcase_01 | AC | 6 ms
5,076 KB |
testcase_02 | AC | 6 ms
5,224 KB |
testcase_03 | AC | 4,009 ms
6,680 KB |
testcase_04 | AC | 3,993 ms
6,832 KB |
testcase_05 | AC | 6 ms
5,200 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::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. Main.pl syntax OK
ソースコード
<>;for$l(<>){$$_=<+$l>for a..j;$h%$_|$i%$_||($h/=-$_,$i/=-$_,$c*=-$_)for-13..-2;print[1..($c<900?$c:900)]~~sub{$a-$d-abs$a-($f+=$h)%(2*$a)|$b-$e-abs$b-($g+=$i)%(2*$b)}?Miss:Hit,$/}