2013年05月23日

use strict;
use warnings;
use Benchmark 'cmpthese';

cmpthese( 100 => {
wile => sub {
my $i = 0;
while () {
return if $i++ == 1_000_000;
}
},
goto => sub {
my $i = 0;
LOOP:
return if $i++ == 1_000_000;
goto LOOP;
},
});

__END__

# on v5.16.3
Rate goto wile
goto 9.37/s -- -54%
wile 20.4/s 118% --

# on v5.17.2
Rate goto wile
goto 7.22/s -- -54%
wile 15.8/s 118% --

# on v5.18.0
Rate goto wile
goto 9.30/s -- -43%
wile 16.2/s 74% --

Posted by Yappo at 2013年05月23日 14:37 | TrackBack | Perl
Comments
Post a comment









Remember personal info?






コメントを投稿する前に↓の場所にnospamと入力してください。