accumulate-of ( seq quot: ( prev elt -- next ) identity -- result )

Vocabulary

sequences.extras

Inputs

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

Outputs

result

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

: accumulate-of
    ( seq quot: ( prev elt -- next ) identity -- result )
    swap accumulate ; inline