8 lines
251 B
Factor
8 lines
251 B
Factor
|
USING: assocs kernel sequences sequences.private sorting ;
|
||
|
|
IN: sorting.extras
|
||
|
|
|
||
|
|
: argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq )
|
||
|
|
[ dup length iota zip ] dip
|
||
|
|
[ [ first-unsafe ] bi@ ] prepose
|
||
|
|
sort [ 1 swap nth-unsafe ] map! ; inline
|