my @sorted = sort {comparator($a,$b)} @unsorted; # fixed. [download]
In reply to Re: Smoothsort by Anonymous Monk in thread Smoothsort by QuillMeantTen