<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/group-anagrams/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/group-anagrams</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0049/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let groupAnagrams (strs: string list) : string list list =
    strs
    |&gt; List.map (fun s -&gt;
        s,
        s
        |&gt; Seq.fold
            (fun (acc: int []) c -&gt;
                let index = int c - int 'a'
                acc.[index] &lt;- acc.[index] + 1
                acc)
            (Array.zeroCreate 26))
    |&gt; List.fold
        (fun acc (str, v) -&gt;
            match Map.tryFind v acc with
            | Some (ss) -&gt; Map.add v (str :: ss) acc
            | None -&gt; Map.add v [ str ] acc)
        Map.empty
    |&gt; Map.toList
    |&gt; List.map snd
    |&gt; List.sortWith (fun a b -&gt; compare a.Length b.Length)
</code></pre>


## URL

https://leetcode.com/problems/group-anagrams/

## Code

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

```fsharp
let groupAnagrams (strs: string list) : string list list =
    strs
    |> List.map (fun s ->
        s,
        s
        |> Seq.fold
            (fun (acc: int []) c ->
                let index = int c - int 'a'
                acc.[index] <- acc.[index] + 1
                acc)
            (Array.zeroCreate 26))
    |> List.fold
        (fun acc (str, v) ->
            match Map.tryFind v acc with
            | Some (ss) -> Map.add v (str :: ss) acc
            | None -> Map.add v [ str ] acc)
        Map.empty
    |> Map.toList
    |> List.map snd
    |> List.sortWith (fun a b -> compare a.Length b.Length)
```

LeetCode 49. Group Anagrams in F#

URL

Code