<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/monotonic-array/description/?envType=daily-question&amp;envId=2023-09-29">Monotonic Array - LeetCode</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/0896/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/0896/main.fsx</a>
<pre><code class="lang-fsharp">let isMonotonic (nums: int list) : bool =
 match nums with
 | [] -&gt; failwith "never reach here"
 | _ :: [] -&gt; true
 | _ -&gt;
 let cmps =
 nums
 |&gt; List.windowed 2
 |&gt; List.map (fun a -&gt; compare (List.head a) (List.tail a |&gt; List.head))

 List.forall (fun c -&gt; c &gt;= 0) cmps || List.forall (fun c -&gt; c &lt;= 0) cmps
</code></pre>

## URL

[Monotonic Array - LeetCode](https://leetcode.com/problems/monotonic-array/description/?envType=daily-question&envId=2023-09-29)

## Code

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

```fsharp
let isMonotonic (nums: int list) : bool =
 match nums with
 | [] -> failwith "never reach here"
 | _ :: [] -> true
 | _ ->
 let cmps =
 nums
 |> List.windowed 2
 |> List.map (fun a -> compare (List.head a) (List.tail a |> List.head))

 List.forall (fun c -> c >= 0) cmps || List.forall (fun c -> c <= 0) cmps
```

LeetCode 896. Monotonic Array in F#

URL

Code