http://qs1969.pair.com?node_id=11141566


in reply to Performance issue in the loop.

I imagine, but have no evidence, this would speed things up a bit.

my $max;
for my $i ( 1 .. $n - 1 ) {
    $max = -~0;

[download]

In Section Seekers of Perl Wisdom