2 lines
94 B
Forth
2 lines
94 B
Forth
|
let subsets xs = List.foldBack (fun x rest -> rest @ List.map (fun ys -> x::ys) rest) xs [[]]
|