Select Code to Download

cmpthese -1, { 
    a=>q[ 1 while chop( $sa )         ], 
...
        Rate    b    a
b  8537447/s   -- -59%
a 20591583/s 141%   --

[0] Perl> cmpthese -1, { 
     a=>q[ 1 while chop( $sa )         ], 
...
b  8686428/s   --  -2% -20%
a  8821000/s   2%   -- -19%
c 10841356/s  25%  23%   --