<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/top-k-frequent-words/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/top-k-frequent-words</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0692/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let topKFrequent (words: string list) (k: int) : string list =
    words
    |&gt; List.fold
        (fun acc word -&gt;
            match Map.tryFind word acc with
            | Some (n) -&gt; Map.add word (n + 1) acc
            | None -&gt; Map.add word 1 acc)
        Map.empty
    |&gt; Map.toList
    |&gt; List.sortWith (fun (word1, count1) (word2, count2) -&gt;
        if count1 = count2 then
            compare word1 word2
        else
            compare count2 count1)
    |&gt; List.take k
    |&gt; List.map fst
</code></pre>


## URL

https://leetcode.com/problems/top-k-frequent-words/

## Code

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

```fsharp
let topKFrequent (words: string list) (k: int) : string list =
    words
    |> List.fold
        (fun acc word ->
            match Map.tryFind word acc with
            | Some (n) -> Map.add word (n + 1) acc
            | None -> Map.add word 1 acc)
        Map.empty
    |> Map.toList
    |> List.sortWith (fun (word1, count1) (word2, count2) ->
        if count1 = count2 then
            compare word1 word2
        else
            compare count2 count1)
    |> List.take k
    |> List.map fst
```

LeetCode 692. Top K Frequent Words in F#

URL

Code