6 lines
201 B
Text
6 lines
201 B
Text
@(do (defun power-set (s)
|
|
(mappend* (op comb s) (range 0 (length s))))
|
|
(prinl (power-set "abc"))
|
|
(prinl (power-set "b"))
|
|
(prinl (power-set ""))
|
|
(prinl (power-set #(1 2 3))))
|