start-product-iter ( sequences -- ns lengths )


Vocabulary
sequences.product.private

Inputs
sequencesan object


Outputs
nsan object
lengthsan object


Definition
USING: arrays kernel sequences ;

IN: sequences.product.private

: start-product-iter ( sequences -- ns lengths )
[ length 0 <array> ] [ [ length ] map ] bi ; inline