4 lines
96 B
FSharp
4 lines
96 B
FSharp
let rec pow =
|
|
function
|
|
| [] -> [[]]
|
|
| x::xs -> [for i in pow xs do yield! [i;x::I]]
|