product-ns ( n lengths: array -- ns )

Vocabulary

sequences.product.private

Inputs

n	an object
lengths	an array

Outputs

ns

an object

Definition

USING: kernel math sequences typed ;

IN: sequences.product.private

TYPED: product-ns ( n lengths: array -- ns ) [ /mod ] map nip ;