結果

問題 No.996 Phnom Penh
ユーザー %20
提出日時 2020-02-21 23:17:19
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 290 bytes
コンパイル時間 211 ms
コンパイル使用メモリ 5,120 KB
実行使用メモリ 7,808 KB
最終ジャッジ日時 2024-10-09 02:18:18
合計ジャッジ時間 1,727 ms
ジャッジサーバーID
(参考情報)
judge2 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
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(h*om)+}{
$t=(-2+length$&=~s/h//gr)/2;
$x+=$t;
$M=$t+1 if $t+1>$M
}ge;
$z=$x+$M;
}
{
$_=$S;
$x=0;
$M=0;
s{phn(h*om)+}{
$t=(-2+length$&=~s/h//gr)/2;
$x+=$t;
$M=$t+1 if $t+1>$M
}ge;
$z=$x+$M if $x+$M>$z;
}
print$z,$/
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0