<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/kth-distinct-string-in-an-array/">2053. Kth Distinct String in an Array</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202408/kth_distinct_string_in_an_array/main.fsx">https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202408/kth_distinct_string_in_an_array/main.fsx</a>
<pre><code class="lang-fsharp">let kthDistinct (arr: string list) (k: int) : string =
 let rec kthDistinct' arr i m k =
 match arr with
 | [] -&gt; ""
 | h :: t -&gt;
 match Map.tryFind h m with
 | Some(v) -&gt;
 if v = 1 then
 let i' = i + 1
 if i' = k then h else kthDistinct' t i' m k
 else
 kthDistinct' t i m k
 | None -&gt; failwith "never reach here"

 let m = arr |&gt; List.countBy id |&gt; Map.ofList
 kthDistinct' arr 0 m k
</code></pre>

## URL

[**2053\. Kth Distinct String in an Array**](https://leetcode.com/problems/kth-distinct-string-in-an-array/)

## Code

[https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202408/kth\_distinct\_string\_in\_an\_array/main.fsx](https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/challenge/202408/kth_distinct_string_in_an_array/main.fsx)

```fsharp
let kthDistinct (arr: string list) (k: int) : string =
    let rec kthDistinct' arr i m k =
        match arr with
        | [] -> ""
        | h :: t ->
            match Map.tryFind h m with
            | Some(v) ->
                if v = 1 then
                    let i' = i + 1
                    if i' = k then h else kthDistinct' t i' m k
                else
                    kthDistinct' t i m k
            | None -> failwith "never reach here"

    let m = arr |> List.countBy id |> Map.ofList
    kthDistinct' arr 0 m k
```

LeetCode 2053. Kth Distinct String in an Array in F#

URL

Code