10 lines
201 B
Text
10 lines
201 B
Text
powerset s:
|
|
local :out [ set{ } ]
|
|
for value in keys s:
|
|
for subset in copy out:
|
|
local :subset+1 copy subset
|
|
set-to subset+1 value true
|
|
push-to out subset+1
|
|
out
|
|
|
|
!. powerset set{ 1 2 3 4 }
|