Re^2: List::Util max with block

[ikegami]

Alternative:

my $max   = shift(@list);
my $max_c = complex_calculation($max);

for (@list) {
    my $c = complex_calculation($_);
    if ($c > $max_c) {
        $max   = $_;
        $max_c = $c;
    }
}

[dlarochelle]

Thanks ikegami,

These are both excellent suggestions.