結果
問題 | No.2069 み世界数式 |
ユーザー | tails |
提出日時 | 2022-09-09 11:45:35 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 759 ms / 2,000 ms |
コード長 | 673 bytes |
コンパイル時間 | 711 ms |
コンパイル使用メモリ | 5,368 KB |
実行使用メモリ | 43,440 KB |
最終ジャッジ日時 | 2023-08-16 18:59:18 |
合計ジャッジ時間 | 5,980 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge14 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 5 ms
5,180 KB |
testcase_01 | AC | 5 ms
5,292 KB |
testcase_02 | AC | 5 ms
5,180 KB |
testcase_03 | AC | 6 ms
5,276 KB |
testcase_04 | AC | 5 ms
5,316 KB |
testcase_05 | AC | 5 ms
5,220 KB |
testcase_06 | AC | 5 ms
5,188 KB |
testcase_07 | AC | 5 ms
5,380 KB |
testcase_08 | AC | 5 ms
5,264 KB |
testcase_09 | AC | 5 ms
5,380 KB |
testcase_10 | AC | 6 ms
5,224 KB |
testcase_11 | AC | 7 ms
5,240 KB |
testcase_12 | AC | 25 ms
7,320 KB |
testcase_13 | AC | 32 ms
8,756 KB |
testcase_14 | AC | 25 ms
7,132 KB |
testcase_15 | AC | 38 ms
8,772 KB |
testcase_16 | AC | 55 ms
12,068 KB |
testcase_17 | AC | 37 ms
7,516 KB |
testcase_18 | AC | 44 ms
9,508 KB |
testcase_19 | AC | 44 ms
10,176 KB |
testcase_20 | AC | 77 ms
8,920 KB |
testcase_21 | AC | 27 ms
6,916 KB |
testcase_22 | AC | 84 ms
18,600 KB |
testcase_23 | AC | 59 ms
14,500 KB |
testcase_24 | AC | 42 ms
9,980 KB |
testcase_25 | AC | 81 ms
11,008 KB |
testcase_26 | AC | 55 ms
12,544 KB |
testcase_27 | AC | 6 ms
5,232 KB |
testcase_28 | AC | 5 ms
5,284 KB |
testcase_29 | AC | 5 ms
5,232 KB |
testcase_30 | AC | 6 ms
5,396 KB |
testcase_31 | AC | 6 ms
5,368 KB |
testcase_32 | AC | 6 ms
5,244 KB |
testcase_33 | AC | 6 ms
5,260 KB |
testcase_34 | AC | 6 ms
5,268 KB |
testcase_35 | AC | 6 ms
5,248 KB |
testcase_36 | AC | 5 ms
5,236 KB |
testcase_37 | AC | 154 ms
43,440 KB |
testcase_38 | AC | 759 ms
11,328 KB |
testcase_39 | AC | 16 ms
5,816 KB |
testcase_40 | AC | 15 ms
6,292 KB |
testcase_41 | AC | 9 ms
5,600 KB |
testcase_42 | AC | 12 ms
6,108 KB |
testcase_43 | AC | 12 ms
6,332 KB |
testcase_44 | AC | 20 ms
6,488 KB |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
($m,$a)=glob<>; $_=<>; $v=Aaaaa; 0while s{\d+}{ ++$v; $$v{$&}=$&; $v }e|| s{\((\w+)\)}{ ++$v; for$xk(keys%$1){ $xv=$$1{$xk}; $$v{$xk}="($xv)"; } $v }e|| s{(?<!&)\b(\w+)&(\w+)}{ ++$v; for$xk(keys%$1){ $xv=$$1{$xk}; for$yk(keys%$2){ $yv=$$2{$yk}; if($yk!=0){ $$v{int$xk/$yk}="$xv/$yv"; } if($xk*$yk<=$m){ $$v{$xk*$yk}="$xv*$yv"; } } } $v }e|| s{(\w+)\$(\w+)\b(?!&)}{ ++$v; for$xk(keys%$1){ $xv=$$1{$xk}; for$yk(keys%$2){ $yv=$$2{$yk}; if($xk-$yk>=0){ $$v{$xk-$yk}="$xv-$yv"; } if($xk+$yk<=$m){ $$v{$xk+$yk}="$xv+$yv"; } } } $v }e; print$$v{$a}||-1,$/