2nested-each ( seq1 seq2 quot -- )


Vocabulary
sequences.extras

Inputs
seq1a sequence
seq2a sequence
quota quotation


Outputs
None

Word description
Applies quotation to all pairs of elements from seq1 and seq2. Order is the same as a nested for loop.

Definition
USING: kernel sequences ;

IN: sequences.extras

: 2nested-each ( seq1 seq2 quot -- )
swapd [ [ swap ] ] dip [ with each ] curry compose with each
; inline