in reply to Re^2: Getting Max Value from Different Hashes
in thread Getting Max Value from Different Hashes

I hope that the OP was not seriuos about the efficiency issue - this is why such an optimisation over 4 values seems weird to me :)

Flavio
perl -ple'$_=reverse' <<<ti.xittelop@oivalf

Don't fool yourself.
  • Comment on Re^3: Getting Max Value from Different Hashes

Replies are listed 'Best First'.
Re^4: Getting Max Value from Different Hashes
by diotalevi (Canon) on Aug 01, 2005 at 16:03 UTC
    That isn't over four values, that's over four collections each of unknown size. I was seriously considering adding this other method just because the collection size was unknown. This moves from collection-at-a-time to element-at-a-time.

    my @collections = ...;

my $first_collection = shift @collections;
keys %$first_collection;
my ( undef, $max ) = each %$first_collection;
while ( my ( undef, $elt ) = each %$first_collection ) {
    if ( $elt > $max ) {
        $max = $elt;
    }
}

for my $collection ( @collections ) {
    keys %$collection;
    while ( my ( undef, $elt ) = each %$collection ) {
        if ( $elt > $max ) {
            $max = $elt;
        }
    }
}

    [download]
[reply]
[d/l]
      Maybe the OP changed the specs on the fly, but I read (bold mine):
      Given 4 distinct hashes with only one key-value
      The only uncertainty is in the fact that this only one key-value is present or not.

      Flavio
      perl -ple'$_=reverse' <<<ti.xittelop@oivalf

      Don't fool yourself.
[reply]

In Section Seekers of Perl Wisdom