<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/minimum-time-difference/description/?envType=daily-question&amp;envId=2024-09-16">https://leetcode.com/problems/minimum-time-difference/description/?envType=daily-question&amp;envId=2024-09-16</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/minimum_time_difference/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/minimum_time_difference/main.fsx</a>
<pre><code class="lang-fsharp">let findMinDifference (timePoints: string list) : int =
 let timePointToMinutes (t: string) : int =
 let t = t |&gt; Seq.map (fun c -&gt; int c - int '0') |&gt; Seq.toArray

 match t with
 | [| a; b; _; c; d |] -&gt; (10 * a + b) * 60 + 10 * c + d
 | _ -&gt; failwithf "never reach here %A" t

 let rec findMinDifference' ts prev acc =
 match ts with
 | [] -&gt; acc
 | h :: t -&gt; findMinDifference' t h (min acc (h - prev))

 let ts = timePoints |&gt; List.map timePointToMinutes |&gt; List.sort

 match ts with
 | [] -&gt; failwith "never reach here"
 | h :: t -&gt; findMinDifference' (t @ [ h + 1440 ]) h 2000
</code></pre>

## URL

[https://leetcode.com/problems/minimum-time-difference/description/?envType=daily-question&envId=2024-09-16](https://leetcode.com/problems/minimum-time-difference/description/?envType=daily-question&envId=2024-09-16)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/minimum\_time\_difference/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/minimum_time_difference/main.fsx)

```fsharp
let findMinDifference (timePoints: string list) : int =
    let timePointToMinutes (t: string) : int =
        let t = t |> Seq.map (fun c -> int c - int '0') |> Seq.toArray

        match t with
        | [| a; b; _; c; d |] -> (10 * a + b) * 60 + 10 * c + d
        | _ -> failwithf "never reach here %A" t

    let rec findMinDifference' ts prev acc =
        match ts with
        | [] -> acc
        | h :: t -> findMinDifference' t h (min acc (h - prev))

    let ts = timePoints |> List.map timePointToMinutes |> List.sort

    match ts with
    | [] -> failwith "never reach here"
    | h :: t -> findMinDifference' (t @ [ h + 1440 ]) h 2000
```

LeetCode 539. Minimum Time Difference in F#

URL

Code