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

sequences: adding stack effects for change-nth, map-integers, and interleave.

db4
John Benediktsson 2011-09-19 20:49:57 -07:00
parent d142dbb456
commit a002b7aa5f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/sequences/sequences.factor
View File

@ -346,7 +346,7 @@ PRIVATE>
: glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline : glue ( seq1 seq2 seq3 -- newseq ) swap 3append ; inline
: change-nth ( i seq quot -- ) : change-nth ( ..a i seq quot: ( ..a elt -- ..b newelt ) -- ..b )
[ [ nth ] dip call ] 3keep drop set-nth ; inline [ [ nth ] dip call ] 3keep drop set-nth ; inline
: min-length ( seq1 seq2 -- n ) [ length ] bi@ min ; inline : min-length ( seq1 seq2 -- n ) [ length ] bi@ min ; inline
@ -414,7 +414,7 @@ PRIVATE>
: reduce ( ... seq identity quot: ( ... prev elt -- ... next ) -- ... result ) : reduce ( ... seq identity quot: ( ... prev elt -- ... next ) -- ... result )
swapd each ; inline swapd each ; inline
: map-integers ( len quot exemplar -- newseq ) : map-integers ( ... len quot: ( ... i -- ... elt ) exemplar -- ... newseq )
[ over ] dip [ [ collect ] keep ] new-like ; inline [ over ] dip [ [ collect ] keep ] new-like ; inline
: map-as ( ... seq quot: ( ... elt -- ... newelt ) exemplar -- ... newseq ) : map-as ( ... seq quot: ( ... elt -- ... newelt ) exemplar -- ... newseq )
@ -522,7 +522,7 @@ PRIVATE>
: each-index ( ... seq quot: ( ... elt index -- ... ) -- ... ) : each-index ( ... seq quot: ( ... elt index -- ... ) -- ... )
(each-index) each-integer ; inline (each-index) each-integer ; inline
: interleave ( seq between quot -- ) : interleave ( ... seq between quot: ( ... elt -- ... ) -- ... )
pick empty? [ 3drop ] [ pick empty? [ 3drop ] [
[ [ drop first-unsafe ] dip call ] [ [ drop first-unsafe ] dip call ]
[ [ rest-slice ] 2dip [ bi* ] 2curry each ] [ [ rest-slice ] 2dip [ bi* ] 2curry each ]