Anonymous user
Cartesian product of two or more lists: Difference between revisions
Cartesian product of two or more lists (view source)
Revision as of 16:59, 19 February 2018
, 6 years ago→{{header|Common Lisp}}
Line 441:
=={{header|Common Lisp}}==
<lang lisp>(defun n-cartesian-product (l)
"Compute the n-cartesian product of a list of sets represented as list with a mixed recursive-iterative approach.
Algorithm:
Line 450:
(list nil)
(loop for x in (car l)
nconc (loop for y in (n-cartesian-product (cdr l))
collect (cons x y)))))</lang>
| |||