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

Add sequences.lib.reduce-index

db4
Eric Mertens 2008-04-19 23:41:18 -07:00
parent c564481cc5
commit 6c70907354
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/sequences/lib/lib.factor
View File

@ -35,6 +35,10 @@ MACRO: firstn ( n -- )
#! quot: ( elt index -- obj ) #! quot: ( elt index -- obj )
prepare-index 2map ; inline prepare-index 2map ; inline
: reduce-index ( seq identity quot -- )
#! quot: ( prev elt index -- next )
swapd each-index ; inline
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: each-percent ( seq quot -- ) : each-percent ( seq quot -- )