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

Update implementation of sigma to use compose

db4
Eric Mertens 2008-04-21 23:39:54 -07:00
parent 18fa6fd115
commit 757115bc64
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/sequences/lib/lib.factor
View File

@ -52,7 +52,7 @@ MACRO: firstn ( n -- )
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: sigma ( seq quot -- n ) : sigma ( seq quot -- n )
[ rot slip + ] curry 0 swap reduce ; inline [ + ] compose 0 swap reduce ; inline
: count ( seq quot -- n ) : count ( seq quot -- n )
[ 1 0 ? ] compose sigma ; inline [ 1 0 ? ] compose sigma ; inline