3each-from ( ... seq1 seq2 seq3 quot: ( ... elt1 elt2 elt3 -- ... ) i -- ... )

Vocabulary

sequences.extras

Inputs

seq1	a sequence
seq2	a sequence
seq3	a sequence
quot	a quotation
i	an integer

Outputs

None

Definition

USING: kernel math sequences.private ;

IN: sequences.extras

: 3each-from
    ( ... seq1 seq2 seq3 quot: ( ... elt1 elt2 elt3 -- ... ) i -- ... )
    [ 3length-operator ] dip -rot each-integer-from ; inline