parallel-cartesian-each ( seq1 seq2 quot: ( elt1 elt2 -- ) -- )
Concurrent combinators

Prev:	parallel-product-each ( seq quot: ( elt -- ) -- )
Next:	parallel-product-map ( seq quot: ( elt -- newelt ) -- newseq )

Vocabulary
concurrency.combinators

Inputs

seq1	an object
seq2	an object
quot	a quotation with stack effect ( elt1 elt2 -- )

Outputs
None

Definition

USING: arrays kernel sequences.private ;

IN: concurrency.combinators

: parallel-cartesian-each
    ( seq1 seq2 quot: ( elt1 elt2 -- ) -- )
    [ 2array ] dip [ first2-unsafe ] prepose
    parallel-product-each ;