максимальный элемент....

[commander]

задачка такая:
есть масив с валютами только ("USD","EUR", "RUR"):
my @arr=("EUR", "USD","USD","RUR","RUR","RUR","RUR","EUR","EUR");

из него нужно выяснить какая валюта чаще всего встречаеться...

решил это следующим образом:
------------------------------------------------------------------
my @arr=("EUR", "USD","USD","RUR","RUR","RUR","RUR","EUR","EUR");
my $cur;
my %arr=("USD"=>0,"EUR"=>1,"RUR"=>2);
map {
$cur->[$arr{$_}]{\'val\'}=$_;
$cur->[$arr{$_}]{\'num\'}++;
}@arr;
$cur=[sort {$b->{num}<=>$a->{num}} @$cur ];
print $cur->

• {\'val\'};

------------------------------------------------------------------

но ИМХО как то не спортивно получилось...

есть пердложения по улучшению кода?

[Green Kakadu]

#!/usr/bin/perl
use strict;
my %counter=();
my @arr=("EUR", "USD","USD","RUR","RUR","RUR","RUR","EUR","EUR");
foreach my $cur (@arr)
{
   $counter{$cur}++;
}
print join("\\n",  sort {$counter{$b} <=> $counter{$a}} keys %counter);

[commander]

Green Kakadu
нужно вывести одно обозначение валюты...

[Kannabismus]

Да уж, сильно заколдовал

; my %hash
; $hash{$_}++ for @arr
; print ((undef) = (sort {$hash{$b} <=> $hash{$a}} keys %hash)[0])

[commander]

Kannabismus
о! уже лучше...
ещё предложения?