Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
              fr => sub { my $rv = equal_fr(@list) ?1:0; 1; },
              zx => sub { my $rv = equal_zx(@list) ?1:0; 1; },
                        });

Select or download this


       Rate   pm   ti   i1   pw   i2   fr   zx
...
fr 235585/s 351% 216% 141%  42%  23%   -- -17%
zx 283834/s 444% 281% 190%  70%  48%  20%   --