#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);

use Sort::Key::Radix;
# use Sort::Key;

my @data = map { int(50 * rand) } 0..2_000_000;

cmpthese -1, { # builtin => sub { my @s = sort { $a <=> $b } @data },
               # sk => sub { my @s = Sort::Key::usort @data },
               radix => sub { my @s = Sort::Key::Radix::usort @data }
             };

