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

cursors: 2each, 2map-as, 2map, using zip-cursors

release
Joe Groff 2010-03-24 15:26:50 -07:00
parent 98d81e71d7
commit 56c89c0510
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/cursors/cursors.factor
View File

@ -484,5 +484,11 @@ ALIAS: -2container- -assoc-
: 2container- ( a b quot -- begin end quot' )
2all- -2container- ; inline
: 2each ( ... a b quot: ( ... x y -- ... ) -- ... )
2container- -each ; inline
: 2map-as ( ... a b quot: ( ... x y -- ... z ) exemplar -- ... c )
[ 2container- ] dip -map-as ; inline
: 2map ( ... a b quot: ( ... x y -- ... z ) -- ... c )
pick 2map-as ; inline