Help for this page

Select Code to Download


  1. or download this
    
cmpthese -1,{
...
    a => q[ my @a = '0001' .. '1000'; $_ += 0 for @a; ],
    b => q[ my @b = '0001' .. '1000'; my @new; push @new, $_ + 0 while
+ defined( $_ = shift @b ) ],
};
  2. or download this
        Rate    b    c    a    d
b 1267/s   -- -29% -37% -63%
c 1794/s  42%   -- -10% -47%
a 2000/s  58%  11%   -- -41%
d 3413/s 169%  90%  71%   --