結果
問題 | No.2719 Equal Inner Products in Permutation |
ユーザー | tails |
提出日時 | 2024-04-10 17:42:11 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 92 ms / 2,000 ms |
コード長 | 680 bytes |
コンパイル時間 | 2,586 ms |
コンパイル使用メモリ | 109,056 KB |
実行使用メモリ | 45,952 KB |
最終ジャッジ日時 | 2024-04-10 17:42:21 |
合計ジャッジ時間 | 9,912 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 92 ms
44,544 KB |
testcase_01 | AC | 66 ms
44,416 KB |
testcase_02 | AC | 67 ms
44,416 KB |
testcase_03 | AC | 67 ms
44,544 KB |
testcase_04 | AC | 66 ms
44,544 KB |
testcase_05 | AC | 66 ms
44,416 KB |
testcase_06 | AC | 63 ms
44,544 KB |
testcase_07 | AC | 66 ms
44,416 KB |
testcase_08 | AC | 65 ms
44,416 KB |
testcase_09 | AC | 64 ms
44,544 KB |
testcase_10 | AC | 63 ms
44,288 KB |
testcase_11 | AC | 65 ms
44,416 KB |
testcase_12 | AC | 66 ms
44,544 KB |
testcase_13 | AC | 64 ms
44,416 KB |
testcase_14 | AC | 85 ms
44,416 KB |
testcase_15 | AC | 79 ms
45,568 KB |
testcase_16 | AC | 70 ms
45,696 KB |
testcase_17 | AC | 68 ms
45,184 KB |
testcase_18 | AC | 69 ms
45,696 KB |
testcase_19 | AC | 68 ms
45,568 KB |
testcase_20 | AC | 91 ms
45,184 KB |
testcase_21 | AC | 70 ms
45,824 KB |
testcase_22 | AC | 67 ms
45,312 KB |
testcase_23 | AC | 69 ms
45,184 KB |
testcase_24 | AC | 65 ms
45,312 KB |
testcase_25 | AC | 69 ms
45,696 KB |
testcase_26 | AC | 78 ms
45,952 KB |
testcase_27 | AC | 68 ms
45,952 KB |
testcase_28 | AC | 70 ms
45,824 KB |
testcase_29 | AC | 70 ms
45,952 KB |
testcase_30 | AC | 68 ms
45,824 KB |
コンパイルメッセージ
Unquoted string "a" may clash with future reserved word at Main.pl line 20. Unquoted string "b" may clash with future reserved word at Main.pl line 20. Unquoted string "c" may clash with future reserved word at Main.pl line 20. Main.pl syntax OK
ソースコード
sub w{open(X,">",@_);select(X);} sub r{sysopen(X,$_[0].$n%3,0);sysread(X,$t,$n*7);syswrite(STDOUT,$t,$n*7);} CHECK{ if(!-e"a0"){ @0=map{$_*9+1,$_*9+2,$_*9+9}0..199999; @1=map{$_*9+6,$_*9+8,$_*9+7}0..199999; @2=map{$_*9+3,$_*9+4,$_*9+5}0..199999; w(a0);printf " %6d",$_ for@0; w(b0);printf " %6d",$_ for@1; w(c0);printf " %6d",$_ for@2; w(a2);printf " %6d",$_ for 1,4,map$_+6,@0; w(b2);printf " %6d",$_ for 3,6,map$_+6,@1; w(c2);printf " %6d",$_ for 5,2,map$_+6,@2; w(a1);printf " %6d",$_ for 1,2,4,11,map$_+12,@0; w(b1);printf " %6d",$_ for 7,9,10,12,map$_+12,@1; w(c1);printf " %6d",$_ for 8,5,6,3,map$_+12,@2; } } $n=<>; $n<2?print-1:(r(a),r(b),r(c));