結果
問題 | No.996 Phnom Penh |
ユーザー |
![]() |
提出日時 | 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
ソースコード
$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,$/