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

sortign.extras: use second-unsafe.

db4
John Benediktsson 2012-09-19 10:23:58 -07:00
parent 40a8936fe6
commit ffbe20556b
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

@ -4,4 +4,4 @@ IN: sorting.extras
: argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq ) : argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq )
[ dup length iota zip ] dip [ dup length iota zip ] dip
[ [ first-unsafe ] bi@ ] prepose [ [ first-unsafe ] bi@ ] prepose
sort [ 1 swap nth-unsafe ] map! ; inline sort [ second-unsafe ] map! ; inline