2 lines
82 B
OCaml
2 lines
82 B
OCaml
|
fun subsets xs = foldr (fn (x, rest) => rest @ map (fn ys => x::ys) rest) [[]] xs
|