Select Code to Download

 > time perl dupsort.pl u 1e6 "1e9-1-int(rand(1e9))"
999498 unique items sorted.(9)
...
real    0m37.483s
user    0m36.978s
sys     0m0.508s

uniqmergesort mergesort
52.6s (~1e6)  54.1s (1e6)
...
23.4s (100)   42.1s
16.5s (10)    40.4s
11.1s (1)     37.5s

#!/usr/bin/perl -l
use strict;
...
    my $e= time();
    printf "%.3fs sort, %.3fs init.\n", $e-$m, $m-$t;
}