Re^5: Continuations in Perl - Returning to an arbitrary level up the call stack

He he. Thanks again. You get funnier and funnier.

Let's see, what does this measure? Hm. Decrementing a variable a million times and doing nothing with the result.

Okay then, this does that 30 times faster:

#! perl -slw
use strict;
use Time::HiRes qw/time/;

my $i = 1e6;
my $start = time;
1 while --$i;
printf "Took %f seconds\n", time - $start;

__END__
C:\test>1034296.pl
Took 0.062912 seconds
[download]

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.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^5: Continuations in Perl - Returning to an arbitrary level up the call stack Download Code

Replies are listed 'Best First'.
Re^6: Continuations in Perl - Returning to an arbitrary level up the call stack (Bielefeld) by LanX (Saint) on May 20, 2013 at 23:55 UTC
Bielefeld does not exist!	[reply]