Help for this page

Select Code to Download

Select or download this

use Benchmark qw(cmpthese);

...
    c_double => sub { eval $double },
    d_single => sub { eval $single },
} );

Select or download this

           Rate a_double c_double b_single d_single
a_double 4773/s       --      -1%     -23%     -23%
c_double 4830/s       1%       --     -22%     -22%
b_single 6170/s      29%      28%       --      -0%
d_single 6172/s      29%      28%       0%       --