<h2 id="heading-url">URL</h2>
<a target="_blank" href="https://leetcode.com/problems/my-calendar-i/description/?envType=daily-question&amp;envId=2024-09-26">My Calendar I - LeetCode</a>
<h2 id="heading-code">Code</h2>
<a target="_blank" href="https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/my_calendar1/main.fsx">https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/my_calendar1/main.fsx</a>
<pre><code class="lang-fsharp">type MyCalendar =
 { Ranges: (int * int) list }

 static member Empty: MyCalendar = { Ranges = [] }

 static member Book (start: int) (end': int) (cal: MyCalendar) : (bool * MyCalendar) =
 let ok = cal.Ranges |&gt; List.forall (fun (s, e) -&gt; start &gt;= e || end' &lt; s)

 if ok then
 true,
 { cal with
 Ranges = (start, end') :: cal.Ranges }
 else
 false, cal
</code></pre>

## URL

[My Calendar I - LeetCode](https://leetcode.com/problems/my-calendar-i/description/?envType=daily-question&envId=2024-09-26)

## Code

[https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/my\_calendar1/main.fsx](https://github.com/syohex/dotnet-study/tree/master/fsharp/leetcode/challenge/202409/my_calendar1/main.fsx)

```fsharp
type MyCalendar =
 { Ranges: (int * int) list }

 static member Empty: MyCalendar = { Ranges = [] }

 static member Book (start: int) (end': int) (cal: MyCalendar) : (bool * MyCalendar) =
 let ok = cal.Ranges |> List.forall (fun (s, e) -> start >= e || end' < s)

 if ok then
 true,
 { cal with
 Ranges = (start, end') :: cal.Ranges }
 else
 false, cal
```

Shohei Yoshida's Blog

Shohei Yoshida's Blog

LeetCode 729. My Calendar I in F#

URL

Code