Help for this page

Select Code to Download


  1. or download this
    cmpthese -1,{
    a => q[ my $s='x'x1100; my@bits= unpack'(A6A5)*',$s;   ],
...
    Rate   b   a
b 4516/s  -- -6%
a 4780/s  6%  --
  2. or download this
    cmpthese -1,{
    a => q[ my $s='x'x11000; my@bits= unpack'(A6A5)*',$s;   ],
...
   Rate    b    a
b 427/s   -- -10%
a 471/s  11%   --