#75917 (Perl) No.342 一番ワロタｗｗ

• 問題: No.342 一番ワロタｗｗ
• ユーザー: takashi2001pc
• 提出日時: 2016-02-13 01:04:28
• 言語: Perl (5.38.2)
• 結果: WA
• 実行時間: -
• コード長: 516 bytes
• コンパイル時間: 208 ms
• コンパイル使用メモリ: 7,808 KB
• 実行使用メモリ: 7,936 KB
• 最終ジャッジ日時: 2024-09-22 05:20:54
• 合計ジャッジ時間: 1,235 ms
• ジャッジサーバーID （参考情報）: judge5 / judge3

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	24 ms; 7,808 KB
testcase_01	AC	23 ms; 7,808 KB
testcase_02	AC	23 ms; 7,808 KB
testcase_03	AC	23 ms; 7,808 KB
testcase_04	AC	22 ms; 7,808 KB
testcase_05	AC	23 ms; 7,808 KB
testcase_06	AC	22 ms; 7,808 KB
testcase_07	AC	22 ms; 7,808 KB
testcase_08	AC	22 ms; 7,808 KB
testcase_09	AC	22 ms; 7,808 KB
testcase_10	AC	22 ms; 7,808 KB
testcase_11	AC	22 ms; 7,808 KB
testcase_12	AC	22 ms; 7,808 KB
testcase_13	AC	22 ms; 7,808 KB
testcase_14	AC	22 ms; 7,680 KB
testcase_15	AC	22 ms; 7,808 KB
testcase_16	WA	-

コンパイルメッセージ

Main.pl syntax OK

ソースコード

use strict;
use warnings;

use utf8;
use Encode qw/encode decode decode_utf8 encode_utf8 from_to/;

my $cmp_str = 'ｗ';
my $instr = '';
my $max_count = 0;
my %dat=();

$instr = decode('utf8', <STDIN>);

while ($instr =~ m/(.*?)($cmp_str+)/g ) {
	my $str = $1;
	my $str_n = $2;
	my $count = 0;
	$count++ while($str_n =~ m/$cmp_str/g);
	$max_count = $count if($max_count < $count);
	push(@{$dat{$count}}, $str) if( $str ne '' );
}

foreach ( @{$dat{$max_count}} ) {
	print Encode::encode("utf8", $_);
	print "\n";
}