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