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

sequences.extras: moved 2each-index to extras for now.

db4
John Benediktsson 2012-08-09 16:36:35 -07:00
parent 9e14799181
commit 9e93cd0e13
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/sequences/sequences.factor
View File

@ -402,9 +402,6 @@ PRIVATE>
: (2each) ( seq1 seq2 quot -- n quot' )
[ ((2each)) ] dip compose ; inline
: (2each-index) ( seq1 seq2 quot -- n quot' )
[ ((2each)) [ keep ] curry ] dip compose ; inline
: 3nth-unsafe ( n seq1 seq2 seq3 -- elt1 elt2 elt3 )
[ nth-unsafe ] tri-curry@ tri ; inline
@ -476,9 +473,6 @@ PRIVATE>
: 2each ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ) -- ... )
(2each) each-integer ; inline
: 2each-index ( ... seq1 seq2 quot: ( ... elt1 elt2 index -- ... ) -- ... )
(2each-index) each-integer ; inline
: 2reduce ( ... seq1 seq2 identity quot: ( ... prev elt1 elt2 -- ... next ) -- ... result )
[ -rot ] dip 2each ; inline

10
extra/sequences/extras/extras.factor
View File

@ -228,6 +228,16 @@ PRIVATE>
: map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
over [ [ (each-index) ] dip collect ] keep ; inline
<PRIVATE
: (2each-index) ( seq1 seq2 quot -- n quot' )
[ ((2each)) [ keep ] curry ] dip compose ; inline
PRIVATE>
: 2each-index ( ... seq1 seq2 quot: ( ... elt1 elt2 index -- ... ) -- ... )
(2each-index) each-integer ; inline
: 2map-into ( seq1 seq2 quot into -- )
[ (2each) ] dip collect ; inline