<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/max-area-of-island/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/max-area-of-island</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0695/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let maxAreaOfIsland (grid: int [,]) : int =
    let rows = Array2D.length1 grid
    let cols = Array2D.length2 grid

    let rec f (grid: int [,]) row col =
        if row &lt; 0 || row &gt;= rows || col &lt; 0 || col &gt;= cols then
            0
        elif grid.[row, col] = 0 then
            0
        else
            grid.[row, col] &lt;- 0

            1
            + (f grid (row - 1) col)
            + (f grid row (col - 1))
            + (f grid (row + 1) col)
            + (f grid row (col + 1))

    let mutable ret = 0

    for i in 0 .. (rows - 1) do
        for j in 0 .. (cols - 1) do
            ret &lt;- System.Math.Max(ret, f grid i j)

    ret
</code></pre>


## URL

https://leetcode.com/problems/max-area-of-island/

## Code

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

```fsharp
let maxAreaOfIsland (grid: int [,]) : int =
    let rows = Array2D.length1 grid
    let cols = Array2D.length2 grid

    let rec f (grid: int [,]) row col =
        if row < 0 || row >= rows || col < 0 || col >= cols then
            0
        elif grid.[row, col] = 0 then
            0
        else
            grid.[row, col] <- 0

            1
            + (f grid (row - 1) col)
            + (f grid row (col - 1))
            + (f grid (row + 1) col)
            + (f grid row (col + 1))

    let mutable ret = 0

    for i in 0 .. (rows - 1) do
        for j in 0 .. (cols - 1) do
            ret <- System.Math.Max(ret, f grid i j)

    ret
```

LeetCode 695. Max Area of Island in F#

URL

Code