Question

用perl实现，得到一个数组中重复次数最多的元素

写一个子程序，数组作为参数，子程序返回数组中重复次数最多的那个元素，如果有两个元素并列最高，就返回两个值

Answer 1

代码我试了是可以的，没有采用返回，而是用打印的方式输出的

sub getmaxocc
{
($input)=@_;
for(@$input)
{
$occ{$_} +=1;
}
$maxocc = (sort {$b <=> $a} values %occ)[0];
while(my($k,$v)=each%occ){
if($v == $maxocc )
{
print "$k ";
}
}
}
getmaxocc( [1,2,2,3,3,3,4,4,4] );

Answer 2

如果有 3 个或以上呢 ?

sub getMax {
    my (%temp, $max, @ret);
    foreach ( @_ ) {
        my $count = $temp{$_}++;
        $max = $count if $count > $max; 
    }
    foreach ( keys %temp ) {
        push @ret, $_ if $temp{$_} == $max
    }    
    return @ret;
}

print getMax ( split //, "aaabbccedffcfffghiabc" )