Select Code to Download

use strict;
use warnings;
...
                compare3 => sub{ compare3 \@x, @ys },
              }
        );

           Rate compare1 compare3 compare2
compare1 48.8/s       --     -81%     -91%
compare3  253/s     420%       --     -53%
compare2  537/s    1002%     112%       --