(carry-n) ( ns lengths i j -- )

Vocabulary

sequences.product.private

Inputs

ns	an object
lengths	an object
i	an object
j	an object

Outputs

None

Definition

USING: kernel math sequences.private ;

IN: sequences.product.private

:: (carry-n) ( ns lengths i j -- )
    i 1 + j = [
        i ns nth-unsafe i lengths nth-unsafe = [
            0 i ns set-nth-unsafe ns lengths i 1 + dup ns
            [ 1 + ] change-nth-unsafe j (carry-n)
        ] when
    ] unless ; inline recursive