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

Vocabulary

sequences.extras

Inputs

seq	an object
quot	a quotation with stack effect ( ..a prev elt -- ..a next )

Outputs

result

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

: 0reduce
    ( seq quot: ( ..a prev elt -- ..a next ) -- result )
    [ 0 ] dip reduce ; inline