extra/sorting/extras/extras.factor

   1 USING: assocs kernel sequences sequences.private sorting ;
   2 IN: sorting.extras
   3
   4 : argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq )
   5     [ dup length iota zip ] dip
   6     [ [ first-unsafe ] bi@ ] prepose
   7     sort [ second-unsafe ] map! ; inline