結果
問題 | No.2719 Equal Inner Products in Permutation |
ユーザー |
![]() |
提出日時 | 2024-04-10 17:30:41 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 82 ms / 2,000 ms |
コード長 | 647 bytes |
コンパイル時間 | 2,461 ms |
コンパイル使用メモリ | 109,040 KB |
実行使用メモリ | 52,716 KB |
最終ジャッジ日時 | 2024-10-02 19:59:05 |
合計ジャッジ時間 | 9,497 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 |
other | AC * 30 |
コンパイルメッセージ
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{open(X,$_[0].$n%3);read(X,$t,$n*7);$t;} 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=<>; print$n<2?-1:r(a).r(b).r(c)