Help for this page

Select Code to Download


  1. or download this
    use Benchmark qw(cmpthese);

...
    '   tye' => sub { @sorted = sort_fastest(@unsorted) },
});
__END__
  2. or download this
    map { join ".", unpack "C*", $_ }
sort
map { pack "C*", split /\./, $_ }
@ips;
  3. or download this
              Rate   slow faster    tye
  slow 0.575/s     --   -75%   -83%
faster  2.34/s   307%     --   -32%
   tye  3.45/s   501%    48%     --