結果

問題 No.519 アイドルユニット
ユーザー tails
提出日時 2017-05-28 22:24:17
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 442 bytes
コンパイル時間 124 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-09-21 15:35:10
合計ジャッジ時間 1,051 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 7 WA * 27
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$n=<>;
for(0..$n-1){
	$f[$_]=[<>=~/\S+/g];
}

for$i(0..$n/2-1){
	$j=$i*2;
	$k=$i*2+1;
	$cd=$f[$j][$k];
	$ca=$k;
	$cb=$j;
	for$a(0..$j-1){
		for$b(0..$j-1){
			if($a-$b){
				$d=$f[$j][$a]+$f[$k][$b]-$f[$a][$l[$a]]-$f[$b][$l[$b]]+$f[$l[$a]][$l[$b]];
				if($cd<$d){
					$cd=$d;
					$ca=$a;
					$cb=$b;
				}
			}
		}
	}
	$s+=$cd;
	$la=$l[$a]; $lb=$l[$b]; $l[$a]=$lb; $l[$b]=$la;
	$l[$j]=$ca; $l[$ca]=$j;
	$l[$k]=$cb; $l[$cb]=$k;
}
print$s;
0