6 lines
120 B
Forth
6 lines
120 B
Forth
|
let pow xs =
|
||
|
|
let mutable subs = [[]]
|
||
|
|
for x in xs do
|
||
|
|
subs <- [for s in subs do yield! [s;x::s]]
|
||
|
|
subs
|