Perlについての質問箱 39箱目

Perlについての質問箱 ..

412:デフォルトの名無しさん
09/03/28 17:23:43
>>409

#一番多い要素を書き出す
sub extract {
foreach (@_) {
$hash{$_} ++;
if($max < $hash{$_}){ $max = $hash{$_}; } #追加
}

while (($key, $value) = each(%hash)) {
if($value == $max){ print $key,"\n"; } #追加
}
}

次ページ