Rosetta Code

Cartesian product of two or more lists: Difference between revisions

Page Discussion

Cartesian product of two or more lists (view source)

Revision as of 21:34, 19 January 2021

20 bytes added ,  3 years ago
m
\ replaced with lambdas
(Added scheme)
m (\ replaced with lambdas)
Line 3,483:
(if (or (zero? (length xs)) (zero? (length ys)))
'()
(fold append (map (\lambda (x) (map (\lambda (y) (list x y)) ys)) xs)))))
 
(define nary-cartesian-product (\lambda (ls)
(if (fold (\lambda (a b) (or a b)) (map (compose zero? length) ls))
'()
(map flatten (fold cartesian-product ls)))))
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/275975"