steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sorting/extras/extras.factor
View File

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