sequences.lib: remove sigma and count (moved to core)
parent
e815494578
commit
068718d086
|
@ -51,14 +51,6 @@ MACRO: firstn ( n -- )
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
: sigma ( seq quot -- n )
|
|
||||||
[ + ] compose 0 swap reduce ; inline
|
|
||||||
|
|
||||||
: count ( seq quot -- n )
|
|
||||||
[ 1 0 ? ] compose sigma ; inline
|
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
||||||
|
|
||||||
: map-reduce ( seq map-quot reduce-quot -- result )
|
: map-reduce ( seq map-quot reduce-quot -- result )
|
||||||
>r [ unclip ] dip [ call ] keep r> compose reduce ; inline
|
>r [ unclip ] dip [ call ] keep r> compose reduce ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue