結果
問題 | No.108 トリプルカードコンプ |
ユーザー | tails |
提出日時 | 2017-02-13 18:38:30 |
言語 | Perl (5.38.0) |
結果 |
AC
|
実行時間 | 1,638 ms / 5,000 ms |
コード長 | 165 bytes |
コンパイル時間 | 80 ms |
コンパイル使用メモリ | 7,112 KB |
実行使用メモリ | 64,760 KB |
最終ジャッジ日時 | 2023-08-28 15:37:57 |
合計ジャッジ時間 | 5,572 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge14 |
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 7 ms
5,372 KB |
testcase_01 | AC | 6 ms
5,216 KB |
testcase_02 | AC | 7 ms
5,296 KB |
testcase_03 | AC | 6 ms
5,192 KB |
testcase_04 | AC | 6 ms
5,280 KB |
testcase_05 | AC | 6 ms
5,168 KB |
testcase_06 | AC | 6 ms
5,096 KB |
testcase_07 | AC | 1,638 ms
64,760 KB |
testcase_08 | AC | 53 ms
9,036 KB |
testcase_09 | AC | 7 ms
5,476 KB |
testcase_10 | AC | 6 ms
5,312 KB |
testcase_11 | AC | 6 ms
5,200 KB |
testcase_12 | AC | 6 ms
5,232 KB |
testcase_13 | AC | 118 ms
10,024 KB |
testcase_14 | AC | 50 ms
7,212 KB |
testcase_15 | AC | 20 ms
5,900 KB |
testcase_16 | AC | 83 ms
8,768 KB |
testcase_17 | AC | 12 ms
5,536 KB |
testcase_18 | AC | 1,185 ms
50,120 KB |
testcase_19 | AC | 374 ms
20,144 KB |
testcase_20 | AC | 158 ms
12,048 KB |
testcase_21 | AC | 785 ms
35,232 KB |
testcase_22 | AC | 36 ms
6,564 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;$_++for@a[glob<>];print f@a[0..2]