reduce-from ( ... seq identity quot: ( ... prev elt -- ... next ) from -- ... result )

Vocabulary

sequences.extras

Inputs

seq	a sequence
identity	an object
quot	a quotation
from	an integer

Outputs

result

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

: reduce-from
    ( ... seq identity quot: ( ... prev elt -- ... next ) from -- ... result )
    [ swap ] 2dip each-from ; inline