<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/minimum-domino-rotations-for-equal-row/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/minimum-domino-rotati..</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/1007/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">open System

let minDominoRotations (tops: int list) (bottoms: int list) : int =
    let rec minDominoRotations' value tops bottoms (tRotate: int) (bRotate: int) =
        match tops, bottoms with
        | [], [] -&gt; Some(Math.Min(tRotate, bRotate))
        | _, []
        | [], _ -&gt; failwith "never reach here"
        | x :: xs, y :: ys -&gt;
            if x &lt;&gt; value &amp;&amp; y &lt;&gt; value then
                None
            elif x &lt;&gt; value then
                minDominoRotations' value xs ys (tRotate + 1) bRotate
            else
                minDominoRotations' value xs ys tRotate (bRotate + 1)

    match minDominoRotations' tops.Head tops bottoms 0 0 with
    | Some (v) -&gt; v
    | None -&gt;
        match minDominoRotations' bottoms.Head bottoms tops 0 0 with
        | Some (v) -&gt; v
        | None -&gt; -1
</code></pre>


## URL

https://leetcode.com/problems/minimum-domino-rotations-for-equal-row/

## Code

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

```fsharp
open System

let minDominoRotations (tops: int list) (bottoms: int list) : int =
    let rec minDominoRotations' value tops bottoms (tRotate: int) (bRotate: int) =
        match tops, bottoms with
        | [], [] -> Some(Math.Min(tRotate, bRotate))
        | _, []
        | [], _ -> failwith "never reach here"
        | x :: xs, y :: ys ->
            if x <> value && y <> value then
                None
            elif x <> value then
                minDominoRotations' value xs ys (tRotate + 1) bRotate
            else
                minDominoRotations' value xs ys tRotate (bRotate + 1)

    match minDominoRotations' tops.Head tops bottoms 0 0 with
    | Some (v) -> v
    | None ->
        match minDominoRotations' bottoms.Head bottoms tops 0 0 with
        | Some (v) -> v
        | None -> -1
```

LeetCode 1007. Minimum Domino Rotations For Equal Row in F#

URL

Code