結果

問題 No.996 Phnom Penh
ユーザー %20
提出日時 2020-02-21 23:11:40
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 268 bytes
コンパイル時間 720 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 7,936 KB
最終ジャッジ日時 2024-10-09 02:11:34
合計ジャッジ時間 1,661 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 16 WA * 9
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

$S=<>;
{
	$_=$S;
	s/h//g;
	y/e/h/;
	$x=1;
	$M=0;
	s{phn(om)+}{
		$t=(-3+length$&)/2;
		$x+=$t;
		$M=$t+1 if $t+1>$M
	}ge;
	$z=$x+$M;
}
{
	$_=$S;
	$x=0;
	$M=0;
	s{phn(om)+}{
		$t=(-3+length$&)/2;
		$x+=$t;
		$M=$t+1 if $t+1>$M
	}ge;
	$z=$x+$M if $x+$M>$z;
}
print$z,$/
0