C:\test>\perl22\bin\perl 1176081.pl -WIDTH=1000 -HEIGHT=1000
yr() took 2.551594
buk() took 1.068262
buk2() took 0.681494
buk3() took 0.167000
dave() took 0.127978
Thanks.
On a related note: Any ideas why this: while( substr( $$str, $y * $WIDTH, $WIDTH ) =~ m[((.)\2*)]mg ) {
...
Works (runs to completion, produces the desired results) on 5.10.1, but silently loops forever in 5.22.0?
This works in 5.22.0: my $ref = \substr( $$str, $y * $WIDTH, $WIDTH );
while( $$ref =~ m[((.)\2*)]mg ) {
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
In the absence of evidence, opinion is indistinguishable from prejudice.
|