5 lines
115 B
Text
5 lines
115 B
Text
|
(define powerset
|
||
|
|
[] -> [[]]
|
||
|
|
[A|As] -> (append (map (cons A) (powerset As))
|
||
|
|
(powerset As)))
|