LeetCode 78. Subsets in F#

URL

https://leetcode.com/problems/subsets/description/?envType=daily-question&envId=2024-05-21

Code

https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202405/subsets/main.fsx

let subsets (nums: int list) : int list list =
    let rec subsets' nums acc =
        match nums with
        | [] -> acc |> List.rev
        | h :: t ->
            let acc' = acc |> List.fold (fun acc' v -> (v @ [ h ]) :: acc') acc
            subsets' t acc'

    subsets' nums [ [] ]