product-iter ( ns lengths -- )


Vocabulary
sequences.product.private

Inputs
nsan object
lengthsan object


Outputs
None

Definition
USING: kernel math sequences.private ;

IN: sequences.product.private

: product-iter ( ns lengths -- )
[ 0 over [ 1 + ] change-nth-unsafe ] dip carry-ns ; inline