結果

問題 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,$/
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0