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

sequences: bit faster binary-reduce.

db4
John Benediktsson 2012-09-10 16:48:40 -07:00
parent 1bd36d5991
commit 62604aeb4b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/sequences/sequences.factor
View File

@ -864,18 +864,18 @@ PRIVATE>
: nth3-unsafe ( n seq -- a b c ) : nth3-unsafe ( n seq -- a b c )
[ nth2-unsafe ] [ [ 2 + ] dip nth-unsafe ] 2bi ; inline [ nth2-unsafe ] [ [ 2 + ] dip nth-unsafe ] 2bi ; inline
: (binary-reduce) ( ... seq start quot: ( ... elt1 elt2 -- ... newelt ) from to -- ... value ) : (binary-reduce) ( ... seq start quot: ( ... elt1 elt2 -- ... newelt ) from length -- ... value )
#! We can't use case here since combinators depends on #! We can't use case here since combinators depends on
#! sequences #! sequences
2dup swap - dup 4 < [ dup 4 < [
nip integer>fixnum { integer>fixnum {
[ 2drop nip ] [ 2drop nip ]
[ 2nip swap nth-unsafe ] [ 2nip swap nth-unsafe ]
[ -rot [ drop swap nth2-unsafe ] dip call ] [ -rot [ drop swap nth2-unsafe ] dip call ]
[ -rot [ drop swap nth3-unsafe ] dip bi@ ] [ -rot [ drop swap nth3-unsafe ] dip bi@ ]
} dispatch } dispatch
] [ ] [
2/ over [ - dup ] dip [ 2/ ] [ over - ] bi [ 2dup + ] dip
[ (binary-reduce) ] [ 2curry ] curry 2bi@ [ (binary-reduce) ] [ 2curry ] curry 2bi@
pick [ 3bi ] dip call pick [ 3bi ] dip call
] if ; inline recursive ] if ; inline recursive