3nested-each ( seq1 seq2 seq3 quot -- )

Vocabulary

sequences.extras

Inputs

seq1	a sequence
seq2	a sequence
seq3	a sequence
quot	a quotation

Outputs

None

Word description

Applies quotation to all triples of elements from seq1, seq2 and seq3. Order is the same as a nested for loop.

Definition

USING: kernel sequences shuffle ;

IN: sequences.extras

: 3nested-each ( seq1 seq2 seq3 quot -- )
    spind [ [ swap ] ] dip [ with with each ] curry compose
    [ [ -rot ] ] dip [ with with each ] curry compose with with
    each ; inline