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

sorting.quick: speedup by inline sort!.

db4
John Benediktsson 2015-06-15 20:44:26 -07:00
parent 1303d37358
commit 4550294227
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/quick/quick.factor
View File

@ -36,7 +36,7 @@ IN: sorting.quick
PRIVATE>
: sort! ( seq quot: ( obj1 obj2 -- <=> ) -- )
[ 0 over length 1 - ] dip quicksort ;
[ 0 over length 1 - ] dip quicksort ; inline
: sort-with! ( seq quot: ( elt -- key ) -- )
[ compare ] curry sort! ; inline