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

math.extras: remove variable effects from cum-reduce for now.

John Benediktsson 2012-09-26 15:20:18 -07:00
parent 3690188ecd
commit 32a58a6ffa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/extras/extras.factor
View File

@ -155,7 +155,7 @@ PRIVATE>
: until-zero ( n quot -- )
[ dup zero? ] swap until drop ; inline
: cum-reduce ( ... seq identity quot: ( ... prev elt -- ... next ) -- ... result cum-result )
: cum-reduce ( seq identity quot: ( prev elt -- next ) -- result cum-result )
[ dup rot ] dip dup '[ _ curry dip dupd @ ] each ; inline
<PRIVATE