Re: a program that looks up majority item

ela <ela@xxxxxxxxxx> wrote:

sub query
for(my $i=$#{$data{$_[0]}}; $i>=0; $i--)
foreach my $RANK (sort {$b <=> $a} keys %{$data{$_[0]}->[$i]})

return [$col[$i], $data{$_[0]}->[$i]->{$RANK}, $RANK], if $RANK >= $_[1]


Something horrible has happened to the formatting of your code...

Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.