2014-04-02 16:56:35 +00:00
|
|
|
@(do (defun power-set (s)
|
2015-11-18 06:14:39 +00:00
|
|
|
(mappend* (op comb s) (range 0 (length s)))))
|
2014-04-02 16:56:35 +00:00
|
|
|
@(bind pset @(power-set *args*))
|
|
|
|
|
@(output)
|
|
|
|
|
@ (repeat)
|
|
|
|
|
{@(rep)@pset, @(last)@pset@(empty)@(end)}
|
|
|
|
|
@ (end)
|
|
|
|
|
@(end)
|
