2 lines
68 B
Text
2 lines
68 B
Text
(defun power-set (s)
|
|
(mappend* (op comb s) (range 0 (length s))))
|
(defun power-set (s)
|
|
(mappend* (op comb s) (range 0 (length s))))
|