<h2 id="heading-url">URL</h2>
<p><a target="_blank" href="https://leetcode.com/problems/minimum-speed-to-arrive-on-time/description/">Minimum Speed to Arrive on Time - 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/1870/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/problems/1870/main.fsx</a></p>
<pre><code class="lang-plaintext">open System

let minSpeedOnTime (dist: int list) (hour: double) : int =
    let totalTime speed dist len =
        dist
        |&gt; List.indexed
        |&gt; List.fold
            (fun acc (i, (d: double)) -&gt;
                let time = d / speed
                if i = len - 1 then acc + time else acc + Math.Ceiling(time))
            0.0

    let rec minSpeedOnTime' left right dist len hour minSpeed =
        if left &gt; right then
            minSpeed
        else
            let mid = left + (right - left) / 2
            let total = totalTime mid dist len

            if total &lt;= hour then
                minSpeedOnTime' left (mid - 1) dist len hour mid
            else
                minSpeedOnTime' (mid + 1) right dist len hour minSpeed

    let dist' = List.map double dist
    let len = List.length dist
    minSpeedOnTime' 0 10_000_000 dist' len hour -1
</code></pre>


## URL

[Minimum Speed to Arrive on Time - LeetCode](https://leetcode.com/problems/minimum-speed-to-arrive-on-time/description/)

## Code

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

```plaintext
open System

let minSpeedOnTime (dist: int list) (hour: double) : int =
    let totalTime speed dist len =
        dist
        |> List.indexed
        |> List.fold
            (fun acc (i, (d: double)) ->
                let time = d / speed
                if i = len - 1 then acc + time else acc + Math.Ceiling(time))
            0.0

    let rec minSpeedOnTime' left right dist len hour minSpeed =
        if left > right then
            minSpeed
        else
            let mid = left + (right - left) / 2
            let total = totalTime mid dist len

            if total <= hour then
                minSpeedOnTime' left (mid - 1) dist len hour mid
            else
                minSpeedOnTime' (mid + 1) right dist len hour minSpeed

    let dist' = List.map double dist
    let len = List.length dist
    minSpeedOnTime' 0 10_000_000 dist' len hour -1
```

LeetCode 1870. Minimum Speed to Arrive on Time in F#

URL

Code