結果
問題 | No.157 2つの空洞 |
ユーザー | %20 |
提出日時 | 2017-10-02 04:12:35 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 38 ms / 2,000 ms |
コード長 | 160 bytes |
コンパイル時間 | 46 ms |
コンパイル使用メモリ | 6,684 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-04-27 17:49:11 |
合計ジャッジ時間 | 1,036 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
外部呼び出し有り |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 5 ms
6,816 KB |
testcase_01 | AC | 5 ms
6,940 KB |
testcase_02 | AC | 5 ms
6,940 KB |
testcase_03 | AC | 5 ms
6,940 KB |
testcase_04 | AC | 5 ms
6,940 KB |
testcase_05 | AC | 5 ms
6,944 KB |
testcase_06 | AC | 9 ms
6,944 KB |
testcase_07 | AC | 5 ms
6,940 KB |
testcase_08 | AC | 5 ms
6,940 KB |
testcase_09 | AC | 6 ms
6,940 KB |
testcase_10 | AC | 5 ms
6,940 KB |
testcase_11 | AC | 11 ms
6,940 KB |
testcase_12 | AC | 12 ms
6,940 KB |
testcase_13 | AC | 13 ms
6,940 KB |
testcase_14 | AC | 18 ms
6,940 KB |
testcase_15 | AC | 21 ms
6,944 KB |
testcase_16 | AC | 22 ms
6,944 KB |
testcase_17 | AC | 38 ms
6,944 KB |
testcase_18 | AC | 23 ms
6,940 KB |
testcase_19 | AC | 36 ms
6,940 KB |
コンパイルメッセージ
Unquoted string "a" may clash with future reserved word at Main.pl line 1. Unquoted string "g" may clash with future reserved word at Main.pl line 1. Main.pl syntax OK
ソースコード
$%=$_=`dd`;s/\./ /;$e="(.{$%})?";($a,$b)=(v9,A..Z,a..g)[$i,$i+1],s/\.$e | $e?\./ $1$2 /s||s/$a$e#/$a$1$b/s|s/#$e$a/$b$1$a/s||$i++until/\w$e\.|\.$e\w/s;print$i+1