product-ns ( n lengths -- ns )

Vocabulary

sequences.product.private

Inputs

n	an object
lengths	an object

Outputs

ns

an object

Definition

USING: kernel math sequences ;

IN: sequences.product.private

: product-ns ( n lengths -- ns )
    <reversed> [ /mod ] map nip <reversed> ; inline