結果

問題 No.437 cwwゲーム
ユーザー tailstails
提出日時 2016-10-28 23:20:23
言語 Perl
(5.40.0)
結果
AC  
実行時間 57 ms / 2,000 ms
コード長 342 bytes
コンパイル時間 494 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 5,504 KB
最終ジャッジ日時 2024-10-12 08:25:01
合計ジャッジ時間 2,037 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 41
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

@a=<>=~/./g;

sub f{
	my$r;
	for$i(0..$#a){
		for$j($i+1..$#a){
			for$k($j+1..$#a){
				if($a[$i]>0&&$a[$i]!=$a[$j]&&$a[$j]==$a[$k]){
					my$x=$a[$i].$a[$j].$a[$k];
					local@a=@a;
					splice(@a,$k,1);
					splice(@a,$j,1);
					splice(@a,$i,1);
					$r1=f()+$x;
					if($r<$r1){
						$r=$r1;
					}
				}
			}
		}
	}
	$r;
}

print 0+f;
0