Sha256: 408258f798d3fd17c5ad07e38c8e1cde96f447773f51a1355fac7a4cbfe58b14
Contents?: true
Size: 711 Bytes
Versions: 272
Compression:
Stored size: 711 Bytes
Contents
module Meetup
open System
type Schedule = First | Second | Third | Fourth | Last | Teenth
let meetupDay dayOfWeek schedule year month =
let daysOfWeek =
[1..DateTime.DaysInMonth(year, month)]
|> List.map (fun day -> new DateTime(year, month, day))
|> List.filter (fun date -> date.DayOfWeek = dayOfWeek)
match schedule with
| Schedule.First -> daysOfWeek |> List.item 0
| Schedule.Second -> daysOfWeek |> List.item 1
| Schedule.Third -> daysOfWeek |> List.item 2
| Schedule.Fourth -> daysOfWeek |> List.item 3
| Schedule.Last -> daysOfWeek |> List.last
| Schedule.Teenth -> daysOfWeek |> List.find (fun date -> date.Day >= 13)
Version data entries
272 entries across 272 versions & 1 rubygems