2reduce-from ( ... seq1 seq2 identity quot: ( ... prev elt1 elt2 -- ... next ) i -- ... result )

Vocabulary

sequences.extras

Inputs

seq1	an object
seq2	an object
identity	an object
quot	a quotation with stack effect ( ... prev elt1 elt2 -- ... next )
i	an object

Outputs

result

an object

Definition

USING: kernel sequences ;

IN: sequences.extras

: 2reduce-from
    ( ... seq1 seq2 identity quot: ( ... prev elt1 elt2 -- ... next ) i -- ... result )
    [ -rot ] 2dip 2each-from ; inline