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

View File

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