8 lines
192 B
Text
8 lines
192 B
Text
@(do (defun power-set (s)
|
|
(mappend* (op comb s) (range 0 (length s)))))
|
|
@(bind pset @(power-set *args*))
|
|
@(output)
|
|
@ (repeat)
|
|
{@(rep)@pset, @(last)@pset@(empty)@(end)}
|
|
@ (end)
|
|
@(end)
|