<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/equal-row-and-column-pairs/description/">Equal Row and Column Pairs - 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/2352/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/2352/main.fsx</a></p>
<pre><code class="lang-plaintext">let equalPairs (grid: int[,]) : int =
    let n = Array2D.length1 grid

    let rows =
        seq { 0 .. (n - 1) }
        |&gt; Seq.map (fun i -&gt; grid.[i, *] |&gt; Array.toList)
        |&gt; Seq.toList

    let cols =
        seq { 0 .. (n - 1) }
        |&gt; Seq.map (fun i -&gt; grid.[*, i] |&gt; Array.toList)
        |&gt; Seq.toList

    rows
    |&gt; List.fold (fun acc row -&gt; acc + (cols |&gt; List.filter (fun col -&gt; row = col) |&gt; List.length)) 0
</code></pre>


## URL

[Equal Row and Column Pairs - LeetCode](https://leetcode.com/problems/equal-row-and-column-pairs/description/)

## Code

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

```plaintext
let equalPairs (grid: int[,]) : int =
    let n = Array2D.length1 grid

    let rows =
        seq { 0 .. (n - 1) }
        |> Seq.map (fun i -> grid.[i, *] |> Array.toList)
        |> Seq.toList

    let cols =
        seq { 0 .. (n - 1) }
        |> Seq.map (fun i -> grid.[*, i] |> Array.toList)
        |> Seq.toList

    rows
    |> List.fold (fun acc row -> acc + (cols |> List.filter (fun col -> row = col) |> List.length)) 0
```

Shohei Yoshida's Blog

Shohei Yoshida's Blog

LeetCode 2352. Equal Row and Column Pairs in F#

URL

Code