http://qs321.pair.com?node_id=1142528


in reply to Smoothsort

my @sorted = sort {comparator($a,$b)} @unsorted; # fixed.

[download]

In Section Seekers of Perl Wisdom