ref:404 Blog Not Found:Algorithm - O(n log(n))より速いsort まぁ、データの特性が利用できるならO(n log n)より速いアルゴリズムが存在するのは、その道の人には常識だったりもするが。 sub bucket_sort(\@&){ my ($aref, $cref) = @_; my @bucket = (); $bucket[$_] = $_ for (@$aref); my $i = 0; defined $_ and $aref->[$i++] = $_ for (@bucket); return $aref; }うぇ、重複値があると要素が消失しちゃう。広義にはこういうのも bucket sort だけど、重複を許さないとかなりアプリケーションが限定されるような。弾さんも認識してて説明してないだけなんだろうけど。 sub bucket