52642
faxathisia
<string>cartesian-product</string>
(defun cartesian-product (&rest lists)
(if (endp lists) '(())
(apply #'append
(mapcar #'(lambda (head) (mapcar #'(lambda (tail) (cons head tail))
(apply #'cartesian-product (rest lists))))
(first lists)))))
3406841603
#lispcafe
1
faxathisia
<string>cartesian-product car/cdr</string>
(defun cartesian-product (list &rest lists)
(if (endp lists) (mapcar #'list list)
(apply #'append
(mapcar #'(lambda (head) (mapcar #'(lambda (tail) (cons head tail))
(apply #'cartesian-product lists)))
list))))
3406841632
#lispcafe