結果
問題 | No.108 トリプルカードコンプ |
ユーザー | tails |
提出日時 | 2017-02-13 18:34:56 |
言語 | Perl (5.38.0) |
結果 |
AC
|
実行時間 | 1,583 ms / 5,000 ms |
コード長 | 166 bytes |
コンパイル時間 | 606 ms |
コンパイル使用メモリ | 5,360 KB |
実行使用メモリ | 64,612 KB |
最終ジャッジ日時 | 2023-08-28 15:37:32 |
合計ジャッジ時間 | 5,908 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge13 |
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 6 ms
5,064 KB |
testcase_01 | AC | 5 ms
5,336 KB |
testcase_02 | AC | 6 ms
5,272 KB |
testcase_03 | AC | 6 ms
5,176 KB |
testcase_04 | AC | 5 ms
5,204 KB |
testcase_05 | AC | 5 ms
5,072 KB |
testcase_06 | AC | 6 ms
5,176 KB |
testcase_07 | AC | 1,583 ms
64,612 KB |
testcase_08 | AC | 51 ms
8,936 KB |
testcase_09 | AC | 7 ms
5,592 KB |
testcase_10 | AC | 6 ms
5,208 KB |
testcase_11 | AC | 6 ms
5,304 KB |
testcase_12 | AC | 6 ms
5,372 KB |
testcase_13 | AC | 116 ms
9,936 KB |
testcase_14 | AC | 50 ms
7,152 KB |
testcase_15 | AC | 20 ms
6,116 KB |
testcase_16 | AC | 82 ms
8,576 KB |
testcase_17 | AC | 12 ms
5,508 KB |
testcase_18 | AC | 1,184 ms
50,252 KB |
testcase_19 | AC | 372 ms
19,996 KB |
testcase_20 | AC | 158 ms
11,808 KB |
testcase_21 | AC | 782 ms
35,124 KB |
testcase_22 | AC | 36 ms
6,636 KB |
コンパイルメッセージ
Unquoted string "c" may clash with future reserved word at Main.pl line 1. Unquoted string "b" may clash with future reserved word at Main.pl line 1. Unquoted string "a" may clash with future reserved word at Main.pl line 1. Main.pl syntax OK
ソースコード
sub f{local($c,$b,$a)=map$$_+pop,c,b,a;${$_="$a $b $c"}//=!/-/&&($n+$a*f(-1,1,0)+$b*f(-1,1)+$c*f(-1))/($a+$b+$c)}$n=<>;${"0 0 0"}=0;$a[$_]++for glob<>;print f@a[0..2]