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



Relevant Pages

  • Re: s///gsi; with a wildcard
    ... Tad McClellan ... The above message is a Usenet post. ... Or spending time in a Perl NG, for that matter. ...
    (comp.lang.perl.misc)
  • Re: Difference between my() and $var = false
    ... "Coping with Scoping": ... Tad McClellan ... The above message is a Usenet post. ...
    (comp.lang.perl.misc)
  • Re: equivalent
    ... Follow-upper should see the docs section "Indirect Object Syntax" in ... Tad McClellan ... The above message is a Usenet post. ...
    (comp.lang.perl.misc)
  • Re: Google Maps get back to me re suggestion
    ... They use commercial sources, often Tele Atlas. ... errr, but maybe not: ... Tad McClellan ... The above message is a Usenet post. ...
    (rec.bicycles.tech)
  • Re: checksum calculation for file offsets
    ... perldoc Tie::File ... Tad McClellan ... The above message is a Usenet post. ... I don't recall having given anyone permission to use it on a Web site. ...
    (comp.lang.perl.misc)