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"; } #追加
}
}
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"; } #追加
}
}