lcartesian-product* ( lists -- result )
Lazy lists » Manipulating lazy lists

Prev:	lcartesian-product ( list1 list2 -- result )
Next:	lmerge ( list1 list2 -- result )

Vocabulary
lists.lazy

Inputs

lists

a list of lists

Outputs

result

list of cartesian products

Word description
Given a list of lists, return a list containing the cartesian product of those lists.

See also
leach, foldl, lmap-lazy, ltake, lfilter, lappend-lazy, lfrom, lfrom-by, lconcat, lcartesian-product, lcartesian-map, lcartesian-map*, lmerge, lwhile, luntil

Definition

USING: kernel lists sequences ;

IN: lists.lazy

: lcartesian-product* ( lists -- result )
    dup nil?
    [ drop nil ] [
        uncons [ car lcartesian-product ] [ cdr ] bi
        list>array swap [
            swap [ swap [ suffix ] with lmap-lazy ] with
            lmap-lazy lconcat
        ] reduce
    ] if ;