RRule perf test

rrule-test.fsx

#r "nuget: Ical.Net"

open System
open Ical.Net

let rrule =
  "BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART;TZID=Europe/London:20220811T090000
DTEND;TZID=Europe/London:20220811T093000
RRULE:FREQ=DAILY;INTERVAL=1
END:VEVENT
END:VCALENDAR"

let now = DateTime.Now

let event = Calendar.Load(rrule)

let sw = System.Diagnostics.Stopwatch.StartNew()

for i in seq { 1 .. 365 } do
  event.GetOccurrences(DateTime.Now.AddDays(i))
  |> ignore

sw.Stop()

printfn "%A" sw.Elapsed