4 lines
125 B
Common Lisp
4 lines
125 B
Common Lisp
(defun powerset (s)
|
|
(if s (mapcan (lambda (x) (list (cons (car s) x) x))
|
|
(powerset (cdr s)))
|
|
'(())))
|