<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/where-will-the-ball-fall/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/where-will-the-ball-f..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1706/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">let findBall (grid: int [,]) : int list =
    let rows = Array2D.length1 grid
    let cols = Array2D.length2 grid

    let rec findBall' row col (grid: int [,]) =
        if row &gt;= rows then
            col
        else if grid.[row, col] = 1 then
            if col = cols - 1 || grid.[row, col + 1] = -1 then
                -1
            else
                findBall' (row + 1) (col + 1) grid
        else if col = 0 || grid.[row, col - 1] = 1 then
            -1
        else
            findBall' (row + 1) (col - 1) grid

    seq { 0 .. (cols - 1) }
    |&gt; Seq.map (fun col -&gt; findBall' 0 col grid)
    |&gt; Seq.toList
</code></pre>


## URL

https://leetcode.com/problems/where-will-the-ball-fall/

## Code

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

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

    let rec findBall' row col (grid: int [,]) =
        if row >= rows then
            col
        else if grid.[row, col] = 1 then
            if col = cols - 1 || grid.[row, col + 1] = -1 then
                -1
            else
                findBall' (row + 1) (col + 1) grid
        else if col = 0 || grid.[row, col - 1] = 1 then
            -1
        else
            findBall' (row + 1) (col - 1) grid

    seq { 0 .. (cols - 1) }
    |> Seq.map (fun col -> findBall' 0 col grid)
    |> Seq.toList
```

LeetCode 1706. Where Will the Ball Fall in F#

URL

Code