<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/find-the-town-judge/description/">Find the Town Judge - 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/0997/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/0997/main.fsx</a></p>
<pre><code class="lang-plaintext">let findJudge (n: int) (trust: (int * int) list) : int =
    let rec trustCount trust acc =
        match trust with
        | [] -&gt; acc
        | (_, trusted) :: t -&gt;
            match Map.tryFind trusted acc with
            | Some(v) -&gt; trustCount t (Map.add trusted (v + 1) acc)
            | None -&gt; trustCount t (Map.add trusted 1 acc)

    let rec hasTrustPeople trust acc =
        match trust with
        | [] -&gt; acc
        | (people, _) :: t -&gt; hasTrustPeople t (Set.add people acc)

    let rec findJudge' count trustPeople ret =
        match count with
        | [] -&gt; ret
        | (trusted, count) :: t -&gt;
            if count = n - 1 &amp;&amp; (Set.contains trusted trustPeople |&gt; not) then
                if ret &lt;&gt; -1 then -1 else findJudge' t trustPeople trusted
            else
                findJudge' t trustPeople ret

    let count = trustCount trust Map.empty |&gt; Map.toList
    let trustPeople = hasTrustPeople trust Set.empty

    findJudge' count trustPeople -1
</code></pre>


## URL

[Find the Town Judge - LeetCode](https://leetcode.com/problems/find-the-town-judge/description/)

## Code

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

```plaintext
let findJudge (n: int) (trust: (int * int) list) : int =
    let rec trustCount trust acc =
        match trust with
        | [] -> acc
        | (_, trusted) :: t ->
            match Map.tryFind trusted acc with
            | Some(v) -> trustCount t (Map.add trusted (v + 1) acc)
            | None -> trustCount t (Map.add trusted 1 acc)

    let rec hasTrustPeople trust acc =
        match trust with
        | [] -> acc
        | (people, _) :: t -> hasTrustPeople t (Set.add people acc)

    let rec findJudge' count trustPeople ret =
        match count with
        | [] -> ret
        | (trusted, count) :: t ->
            if count = n - 1 && (Set.contains trusted trustPeople |> not) then
                if ret <> -1 then -1 else findJudge' t trustPeople trusted
            else
                findJudge' t trustPeople ret

    let count = trustCount trust Map.empty |> Map.toList
    let trustPeople = hasTrustPeople trust Set.empty

    findJudge' count trustPeople -1
```

LeetCode 997. Find the Town Judge in F#

URL

Code