<h2 id="heading-url">URL</h2>
<p><a href="https://leetcode.com/problems/my-calendar-i/" class="autolinkedURL autolinkedURL-url" target="_blank">leetcode.com/problems/my-calendar-i</a></p>
<h2 id="heading-code">Code</h2>
<p><a href="https://github.com/syohex/dotnet-study/blob/master/fsharp/leetcode/problems/0729/main.fsx" class="autolinkedURL autolinkedURL-url" target="_blank">github.com/syohex/dotnet-study/blob/master/..</a></p>
<pre><code class="lang-fsharp">type MyCalendar =
    { Ranges: (int * int) list }

    static member init() : MyCalendar = { Ranges = [] }

    static member book (start: int) (finish: int) (cal: MyCalendar) : (bool * MyCalendar) =
        let rec book' ranges start finish =
            match ranges with
            | [] -&gt; true, { cal with Ranges = (start, finish) :: cal.Ranges }
            | (s, e) :: rest -&gt;
                if s &lt; finish &amp;&amp; start &lt; e then
                    false, cal
                else
                    book' rest start finish

        book' cal.Ranges start finish
</code></pre>


## URL

https://leetcode.com/problems/my-calendar-i/

## Code

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

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

    static member init() : MyCalendar = { Ranges = [] }

    static member book (start: int) (finish: int) (cal: MyCalendar) : (bool * MyCalendar) =
        let rec book' ranges start finish =
            match ranges with
            | [] -> true, { cal with Ranges = (start, finish) :: cal.Ranges }
            | (s, e) :: rest ->
                if s < finish && start < e then
                    false, cal
                else
                    book' rest start finish

        book' cal.Ranges start finish
```

LeetCode 729. My Calendar I in F#

URL

Code