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