6 lines
181 B
Common Lisp
6 lines
181 B
Common Lisp
|
(defun power-set (list)
|
||
|
|
(let ((pow-set (list nil)))
|
||
|
|
(dolist (element (reverse list) pow-set)
|
||
|
|
(dolist (set pow-set)
|
||
|
|
(push (cons element set) pow-set)))))
|