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

Vocabulary

sequences.product.private

Inputs

ns	an object
lengths	an object
i	an object

Outputs

None

Definition

USING: kernel math sequences sequences.private ;

IN: sequences.product.private

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