7 lines
161 B
Common Lisp
7 lines
161 B
Common Lisp
|
(defun powerset (l)
|
||
|
|
(if (null l)
|
||
|
|
(list nil)
|
||
|
|
(let ((prev (powerset (cdr l))))
|
||
|
|
(append (mapcar #'(lambda (elt) (cons (car l) elt)) prev)
|
||
|
|
prev))))
|