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