<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/reduce-array-size-to-the-half/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/reduce-array-size-to-..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1338/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let minSetSize (arr: int list) : int =
    let rec minSetSize' counts i sum half nums =
        match counts with
        | [] -&gt; nums
        | h :: t -&gt;
            let sum' = sum + h

            if sum' &gt;= half then
                i + 1
            else
                minSetSize' t (i + 1) sum' half nums


    let counts =
        arr
        |&gt; List.fold
            (fun acc num -&gt;
                match Map.tryFind num acc with
                | None -&gt; Map.add num 1 acc
                | Some (v) -&gt; Map.add num (v + 1) acc)
            Map.empty
        |&gt; Map.values
        |&gt; Seq.sortWith (fun a b -&gt; compare b a)
        |&gt; Seq.toList

    let half = arr.Length / 2
    let nums = counts.Length
    minSetSize' counts 0 0 half nums
</code></pre>


## URL

https://leetcode.com/problems/reduce-array-size-to-the-half/

## Code

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

```fsharp
let minSetSize (arr: int list) : int =
    let rec minSetSize' counts i sum half nums =
        match counts with
        | [] -> nums
        | h :: t ->
            let sum' = sum + h

            if sum' >= half then
                i + 1
            else
                minSetSize' t (i + 1) sum' half nums


    let counts =
        arr
        |> List.fold
            (fun acc num ->
                match Map.tryFind num acc with
                | None -> Map.add num 1 acc
                | Some (v) -> Map.add num (v + 1) acc)
            Map.empty
        |> Map.values
        |> Seq.sortWith (fun a b -> compare b a)
        |> Seq.toList

    let half = arr.Length / 2
    let nums = counts.Length
    minSetSize' counts 0 0 half nums
```

LeetCode 1338. Reduce Array Size to The Half in F#

URL

Code