<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/group-the-people-given-the-group-size-they-belong-to/description/?envType=daily-question&amp;envId=2023-09-11">Group the People Given the Group Size They Belong To - LeetCode</a></p>
<h2 id="heading-code">Code</h2>
<p><a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1282/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1282/main.fsx</a></p>
<pre><code class="lang-fsharp"><span class="hljs-keyword">let</span> groupThePeople (groupSizes: int list) : int list list =
    groupSizes
    |&gt; List.indexed
    |&gt; List.fold
        (<span class="hljs-keyword">fun</span> acc (i, group) -&gt;
            <span class="hljs-keyword">match</span> Map.tryFind group acc <span class="hljs-keyword">with</span>
            | Some(v) -&gt; Map.add group (i :: v) acc
            | None -&gt; Map.add group [ i ] acc)
        Map.empty
    |&gt; Map.fold
        (<span class="hljs-keyword">fun</span> acc k v -&gt;
            <span class="hljs-keyword">let</span> len = List.length v
            <span class="hljs-keyword">let</span> chunks = List.splitInto (len / k) (List.rev v)
            chunks @ acc)
        []
    |&gt; List.rev
</code></pre>


## URL

[Group the People Given the Group Size They Belong To - LeetCode](https://leetcode.com/problems/group-the-people-given-the-group-size-they-belong-to/description/?envType=daily-question&envId=2023-09-11)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1282/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1282/main.fsx)

```fsharp
let groupThePeople (groupSizes: int list) : int list list =
    groupSizes
    |> List.indexed
    |> List.fold
        (fun acc (i, group) ->
            match Map.tryFind group acc with
            | Some(v) -> Map.add group (i :: v) acc
            | None -> Map.add group [ i ] acc)
        Map.empty
    |> Map.fold
        (fun acc k v ->
            let len = List.length v
            let chunks = List.splitInto (len / k) (List.rev v)
            chunks @ acc)
        []
    |> List.rev
```

LeetCode 1282. Group the People Given the Group Size They Belong To in F#

URL

Code