Skip to content

Instantly share code, notes, and snippets.

@t0yv0

t0yv0/gist:3189294

Created July 27, 2012 17:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save t0yv0/3189294 to your computer and use it in GitHub Desktop.
Save t0yv0/3189294 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
let private isHoliday2011 (dt:DateTime) =
match dt.DayOfWeek with
| DayOfWeek.Saturday | DayOfWeek.Sunday ->
match dt.Month, dt.Day with
| 3, 5 -> false
| _ -> true
| _ ->
match dt.Month, dt.Day with
| 1, 3 | 1, 4 | 1, 5 | 1, 6 | 1, 7 | 1, 10
| 2, 23
| 3, 7 | 3, 8
| 5, 2 | 5, 9
| 6, 13
| 11, 4 -> true
| _ -> false
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment