Select Code to Download

#! perl -slw
use strict;
...
print scalar localtime;
print "@{[ getTopN( \@numbers, $N ) ]}";
print scalar localtime;

Array size | gen.(s) | sort(s)|    sort(s) | sort(s) | sort(s)
           |         |  (30)  |  (100)  | (1000)  | (10000)
...
  100_000  |       1 |     4  |      3  |      2  |     2
1_000_000  |      12 |    55  |     38  |     33  |    36
2_000_000  |      29 |   138  |    102  |     88  |    93

P:\test>294065 -SIZE=100000 -N=30 -CHUNK=30
Thu Sep 25 10:42:39 2003
...
1999938 1999938 1999938 1999938 1999938 1999938 1999938 1999938 199993
+8 1999938 1999938 1999938
Thu Sep 25 10:57:14 2003