lcartesian-map* ( list guards quot: ( elt1 elt2 -- newelt ) -- result )
Lazy lists » Combinators for manipulating lazy lists

Prev:

lcartesian-map ( list quot: ( elt1 elt2 -- newelt ) -- result )

Vocabulary
lists.lazy

Inputs

list	a list of lists
guards	a sequence of quotations with stack effect ( elt1 elt2 -- ? )
quot	a quotation with stack effect ( elt1 elt2 -- newelt )

Outputs

result

a list

Word description
Get the cartesian product of the lists in list, filter it by applying each guard quotation to it and call quot call with each element from the remaining cartesian product items on the stack, the result of which is returned in the final list.

Examples

USING: kernel lists lists.lazy math prettyprint ; { 1 2 3 } >list { 4 5 6 } >list 2list { [ drop odd? ] } [ + ] lcartesian-map* list>array .
{ 5 6 7 7 8 9 }

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

Definition

USING: kernel sequences ;

IN: lists.lazy

: lcartesian-map*
    ( list guards quot: ( elt1 elt2 -- newelt ) -- result )
    [ [ [ first2 ] prepose ] map ] [ [ first2 ] prepose ] bi*
    [ [ lcartesian-product* ] dip [ lfilter ] each ] dip
    lmap-lazy ;