Help for this page

Select Code to Download

Select or download this

cmpthese -1,{
    c => q[ my @c = '0001' .. '1000'; $c[ $_ ] += 0 for 0 .. $#c; ],
    a => q[ my @a = '0001' .. '1000'; $_ += 0 for @a; ],
    b => q[ my @b = '0001' .. '1000'; my @new; push @new, $_ + 0 while
+ defined( $_ = shift @b ) ],
};

Select or download this

    Rate    b    c    a
b  999/s   -- -22% -28%
c 1279/s  28%   --  -7%
a 1382/s  38%   8%   --