8 lines
219 B
Text
8 lines
219 B
Text
to powerset :set
|
|
if empty? :set [output [[]]]
|
|
localmake "rest powerset butfirst :set
|
|
output sentence map [sentence first :set ?] :rest :rest
|
|
end
|
|
|
|
show powerset [1 2 3]
|
|
[[1 2 3] [1 2] [1 3] [1] [2 3] [2] [3] []]
|