sorting.extras: faster map-sort.

db4
John Benediktsson 2014-12-05 10:50:32 -08:00
parent e7bb1a43df
commit 17de36ddfc
1 changed files with 1 additions and 1 deletions

View File

@ -8,7 +8,7 @@ IN: sorting.extras
sort [ second-unsafe ] map! ; inline
: map-sort ( ... seq quot: ( ... elt -- ... key ) -- ... sortedseq )
[ map ] curry keep zip
[ keep ] curry { } map>assoc
[ { array } declare first-unsafe ] sort-with
[ { array } declare second-unsafe ] map ; inline