Help for this page

Select Code to Download

Select or download this

sub eily{
    my $str = shift;
...
    }
    return \@b;
}

Select or download this

C:\test>\perl22\bin\perl 1176081.pl -WIDTH=10000 -HEIGHT=10000
yr() took 12.478694
...
buk3() took 32.063918
dave() took 5.701784
eily took 2.409520