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
extra/sequences/lib

View File

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