結果

問題 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