The sequences.product vocabulary provides a virtual sequence and combinators for manipulating the cartesian product of a set of sequences.

product-sequence

<product-sequence> ( sequences -- product-sequence )

product-map ( ... sequences quot: ( ... seq -- ... value ) -- ... sequence )

product-map-as ( ... sequences quot: ( ... seq -- ... value ) exemplar -- ... sequence )

product-map>assoc ( ... sequences quot: ( ... seq -- ... key value ) exemplar -- ... assoc )

product-each ( ... sequences quot: ( ... seq -- ... ) -- ... )

product-find ( ... sequences quot: ( ... seq -- ... ? ) -- ... sequence )