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.
.