Re: find maximum occuring element in a array

How can I get QS as result?

Looking for somethings like this? The List::Utils may also have a method for strings

#!/usr/bin/perl
use strict;
use warnings;

my @strings = qw( QS DD DFD SD QS QS QS DD DFS);
my %count;
$count{ $_ }++ for @strings;

my @sorted = (sort {$count{$a} cmp $count{$b}} keys %count);
print pop @sorted, "\n";
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

Comment on Re: find maximum occuring element in a array Download Code

Replies are listed 'Best First'.
Re^2: find maximum occuring element in a array by jwkrahn (Abbot) on Sep 07, 2011 at 17:47 UTC
`my @sorted = (sort {$count{$a} cmp $count{$b}} keys %count);` [download] `$count{$a}` and `$count{$b}` contain numbers so that should be: `my @sorted = sort {$count{$a} <=> $count{$b}} keys %count;` [download] And you could accomplish the same effect with just one loop: `$ perl -le' my @strings = qw( QS DD DFD SD QS QS QS DD DFS ); my ( %count, @max ); for ( @strings ) { $count{ $_ }++; $max[ 0 ] < $count{ $_ } and @max = ( $count{ $_ }, $_ ); } print $max[ 1 ]; ' QS` [download]	[reply] [d/l] [select]
Re^3: find maximum occuring element in a array by AnomalousMonk (Archbishop) on Sep 07, 2011 at 21:14 UTC
Neither Re^2: find maximum occuring element in a array nor Re: find maximum occuring element in a array take into account the "[I]f there is a tie, it should return all the values tied" requirement of the OP. Furthermore, the solution of Re^2: find maximum occuring element in a array leads to a `Use of uninitialized value in numeric lt (<)` warning on the first pass through the for-loop.	[reply] [d/l]