URL

https://leetcode.com/problems/subsets/

Code

https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0078/main.fsx

let rec subsets (nums: int list) : int list list =
    match nums with
    | [] -> [ [] ]
    | head :: tail ->
        let rest = subsets tail
        let prepends = rest |> List.map (fun s -> [ head ] @ s)
        prepends @ rest