Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    k4 => sub { do_nothing       },      
    k5 => sub { &do_nothing      },      
});

Select or download this

k2 1456626/s   -- -17% -34% -36% -47%
k1 1745245/s  20%   -- -21% -23% -36%
k4 2210645/s  52%  27%   --  -3% -19%
k3 2277634/s  56%  31%   3%   -- -16%
k5 2723258/s  87%  56%  23%  20%   --