3 lines
139 B
Common Lisp
3 lines
139 B
Common Lisp
(defun powerset (xs)
|
|
(loop for i below (expt 2 (length xs)) collect
|
|
(loop for j below i for x in xs if (logbitp j i) collect x)))
|