結果
問題 | No.341 沈黙の期間 |
ユーザー |
![]() |
提出日時 | 2016-02-12 23:59:23 |
言語 | Perl (5.40.0) |
結果 |
AC
|
実行時間 | 28 ms / 5,000 ms |
コード長 | 449 bytes |
コンパイル時間 | 635 ms |
コンパイル使用メモリ | 10,880 KB |
実行使用メモリ | 10,880 KB |
最終ジャッジ日時 | 2024-09-22 05:07:40 |
合計ジャッジ時間 | 1,041 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 11 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use strict; use warnings; use utf8; use Encode qw/encode decode decode_utf8 encode_utf8 from_to/; use Encode::Guess qw/cp932 euc-jp utf8 7bit-jis/; my $cmp_str = '…'; my $instr = ''; my $max_count = 0; $instr = decode('utf8', <STDIN>); if( $instr ne '' ) { while ($instr =~ m/($cmp_str+)/g ) { my $str = $1; my $count = 0; $count++ while($str =~ m/$cmp_str/g); $max_count = $count if($max_count < $count); } } print "$max_count";