結果
問題 | No.2719 Equal Inner Products in Permutation |
ユーザー | tails |
提出日時 | 2024-04-10 18:20:53 |
言語 | Perl (5.38.2) |
結果 |
AC
|
実行時間 | 13 ms / 2,000 ms |
コード長 | 660 bytes |
コンパイル時間 | 2,457 ms |
コンパイル使用メモリ | 109,312 KB |
実行使用メモリ | 13,436 KB |
最終ジャッジ日時 | 2024-04-10 18:21:00 |
合計ジャッジ時間 | 7,433 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 3 ms
5,248 KB |
testcase_01 | AC | 3 ms
5,248 KB |
testcase_02 | AC | 3 ms
5,376 KB |
testcase_03 | AC | 3 ms
5,376 KB |
testcase_04 | AC | 3 ms
5,376 KB |
testcase_05 | AC | 3 ms
5,376 KB |
testcase_06 | AC | 3 ms
5,376 KB |
testcase_07 | AC | 3 ms
5,376 KB |
testcase_08 | AC | 3 ms
5,376 KB |
testcase_09 | AC | 3 ms
5,376 KB |
testcase_10 | AC | 4 ms
5,376 KB |
testcase_11 | AC | 3 ms
5,376 KB |
testcase_12 | AC | 3 ms
5,376 KB |
testcase_13 | AC | 3 ms
5,376 KB |
testcase_14 | AC | 3 ms
5,376 KB |
testcase_15 | AC | 11 ms
12,032 KB |
testcase_16 | AC | 12 ms
12,928 KB |
testcase_17 | AC | 9 ms
9,856 KB |
testcase_18 | AC | 11 ms
13,060 KB |
testcase_19 | AC | 9 ms
11,648 KB |
testcase_20 | AC | 8 ms
9,472 KB |
testcase_21 | AC | 11 ms
12,928 KB |
testcase_22 | AC | 8 ms
10,640 KB |
testcase_23 | AC | 8 ms
10,304 KB |
testcase_24 | AC | 8 ms
9,216 KB |
testcase_25 | AC | 11 ms
13,312 KB |
testcase_26 | AC | 12 ms
13,436 KB |
testcase_27 | AC | 11 ms
13,312 KB |
testcase_28 | AC | 12 ms
13,436 KB |
testcase_29 | AC | 12 ms
13,288 KB |
testcase_30 | AC | 13 ms
13,224 KB |
コンパイルメッセージ
Unquoted string "a" may clash with future reserved word at Main.pl line 22. Unquoted string "b" may clash with future reserved word at Main.pl line 22. Unquoted string "c" may clash with future reserved word at Main.pl line 22. Main.pl syntax OK
ソースコード
sub w{open(X,">",@_);select(X);} sub r{open(X,$_[0].$n%3);read(X,$t,$n*7);$t;} CHECK{ if(!-e"a0"){ eval' @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=<>; print$n<2?-1:r(a).r(b).r(c)