8 lines
164 B
Text
8 lines
164 B
Text
|
(de powerset (Lst)
|
||
|
|
(ifn Lst
|
||
|
|
(cons)
|
||
|
|
(let L (powerset (cdr Lst))
|
||
|
|
(conc
|
||
|
|
(mapcar '((X) (cons (car Lst) X)) L)
|
||
|
|
L ) ) ) )
|