Update implementation of sigma to use compose
parent
18fa6fd115
commit
757115bc64
extra/sequences/lib
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue