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

sorting.extras: faster map-sort.

db4
John Benediktsson 2013-07-24 10:24:13 -07:00
parent 232287b3fc
commit 1f5e8f3970
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,5 @@
USING: assocs kernel sequences sequences.private sorting ; USING: arrays assocs kernel kernel.private sequences
sequences.private sorting ;
IN: sorting.extras IN: sorting.extras
: argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq ) : argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq )
@ -7,5 +8,6 @@ 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 [ first-unsafe ] sort-with [ map ] curry keep zip
[ second-unsafe ] map ; inline [ { array } declare first-unsafe ] sort-with
[ { array } declare second-unsafe ] map ; inline