0-65535 整数最快的排序算法是什么？

Question

我必须对一些整数进行排序，它们的值可以在 30.000.000 到 350.000.000 之间。将有 0 到 65.535 个整数，平均数为 20.000。 RAM 的使用无关紧要，速度很重要。

稍后我还必须将它们分成组，只要其中两个值之间的差距大于 65.535，就会始终设置除法，这就是我需要算法的目的。

如果有任何不同，算法将在 Perl 脚本中使用。

编辑：仔细考虑并阅读答案后，我意识到：我实际上并不关心数据本身。由于我真的只想找到有小差距的组的开始和结束值，所以排序只需要创建桶并且可以丢弃数据。

Edit2：经过一些测试并尝试了所提供的答案，我发现最快的方法是：

my @sort = sort {$a <=> $b} @item_offsets;
my @buckets;
my $start = shift @sort;
push @buckets, [$start,$start];
for my $item ( @sort ) {
    if ( $item < $buckets[$#buckets][1]+$gap ) {
        $buckets[$#buckets][1] = $item;
    }
    else {
        push @buckets, [$item,$item];
    }
}
say $#buckets;

Answer 1

我会在运行算法之前创建一个桶数组，每组 65536 个连续值一个。存储桶将包含其内容的最小值和最大值，但不会存储内容本身。运行算法后，对桶进行一次遍历。如果有两个连续的非空桶 min(bucket2)-max(bucket1)

注意Bucket Sort。

Answer 2

我会试试这个：

my @sorted = map { unpack "N" } sort map { pack "N" } @unsorted;

Answer 3

您不太可能在 Perl 中编写比 Perl 的内置 sort 函数执行得更好的排序算法：

@numbers = sort {$a <=> $b} @numbers;

您可以尝试使用 sort pragma 来查看特定算法是否更好：

use sort '_quicksort';
use sort '_mergesort';

由于您的切点会因数据分布而异，我认为您需要先对整个列表进行排序，然后循环遍历它以进行切割。

my $prev  = shift @numbers;  # already sorted
my @group = [$prev];
my $i     = 0;

foreach my $n (@numbers) {
    $i++ if ($n - $prev > 65535);
    push @{$group[$i]}, $n;
    $prev = $n;
}

Answer 4

如果您使用该数字作为数组的索引，然后增加该位置的计数，则您已将它们“分组”，并一次性完成。

在伪代码中：

while(morenumbers)
  sorted[[unsorted[number]]++
  number++

如果提前知道范围，您可以减少索引值（例如，将 value-30000 带入正确的范围）。

Answer 5

我只是想说基数排序，http://en.wikipedia.org/wiki/Radix_sort 但是这可能比你想要实现的要高一点，Introsort 通常是公认的数据排序解决方案http://en.wikipedia.org/wiki/Introsort，它是快速排序的一种变体，可以切换到当它到达较小的集合时进行堆排序，因为它在较小的集合上比快速排序更快。

Answer 6

我会使用基数排序，因为您需要对输出进行分组。