Help for this page

Select Code to Download

Select or download this

cmpthese -1, { 
    A => q[ my @a = reduce{ $a += $b } 1 .. 1e4 ], 
...
    Rate    B    A
B 13.3/s   -- -11%
A 15.1/s  13%   --