8 lines
238 B
Common Lisp
8 lines
238 B
Common Lisp
(defun power-set (s)
|
|
(reduce #'(lambda (item ps)
|
|
(append (mapcar #'(lambda (e) (cons item e))
|
|
ps)
|
|
ps))
|
|
s
|
|
:from-end t
|
|
:initial-value '(())))
|