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