結果

問題 No.588 空白と回文
コンテスト
ユーザー tails
提出日時 2017-11-03 22:34:29
言語 Perl
(5.40.0)
結果
TLE  
実行時間 -
コード長 175 bytes
コンパイル時間 329 ms
コンパイル使用メモリ 5,376 KB
実行使用メモリ 10,496 KB
最終ジャッジ日時 2024-11-22 15:59:09
合計ジャッジ時間 25,087 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 17 TLE * 8
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$_=<>;chop;$l=length;
for$a(0..$l-1){
	for$b($a..$l-1){
		$c=0;
		for$i($a..$b){
			$c+=substr($_,$i,1)eq substr($_,$a+$b-$i,1);
		}
		if($d<$c){
			$d=$c;
		}
	}
}
print$d+0;
0