1reduce ( seq quot: ( ..a prev elt -- ..a next ) -- result )


Vocabulary
sequences.extras

Inputs
seqan object
quota quotation with stack effect ( ..a prev elt -- ..a next )


Outputs
resultan object


Definition
USING: kernel sequences ;

IN: sequences.extras

: 1reduce
( seq quot: ( ..a prev elt -- ..a next ) -- result )
[ f ] swap [ [ [ ] ] ] dip [ map-reduce ] curry compose
if-empty ; inline