Computing a US holiday calendar
Assume the existence of a
type date and a function nth_kday_of_month with semantics described by Boost.Datetime documentation. We also assume sums type day_of_week=|Sunday|Monday|... and type ord=|First|second|....
These are utility functions I find myself writing time and time again.
let range l u =
let rec range_aux acc x y =
if x = y then acc
else range_aux (acc@[x]) (x+1) y
in
range_aux [] l u
let string_of_list f l = "[" ^ String.concat ";" (List.map f l) ^ "]"
The approach taken is to use date generators to convert abstract specification into a concrete set of dates.
let test () =
let us_holiday_calendar (s, e) =
let generators = [
nth_kday_of_month First Monday 09; (*US labor day*)
nth_kday_of_month Third Monday 01; (*Martin Luther King day*)
nth_kday_of_month Second Tuesday 02; (*President's day*)
nth_kday_of_month Fourth Thursday 11; (*Thanksgiving*)
] in
let years = range s e in
let apply_gen acc g = (acc@List.map g years) in
let holidays = List.fold_left apply_gen [] generators in
List.sort compare holidays in
assert_equal "[2014-01-20;2014-02-11;2014-09-01;2014-11-27;2015-01-19;2015-02-10;2015-09-07;2015-11-26;2016-01-18;2016-02-09;2016-09-05;2016-11-24;2017-01-16;2017-02-14;2017-09-04;2017-11-23;2018-01-15;2018-02-13;2018-09-03;2018-11-22;2019-01-21;2019-02-12;2019-09-02;2019-11-28;2020-01-20;2020-02-11;2020-09-07;2020-11-26;2021-01-18;2021-02-09;2021-09-06;2021-11-25;2022-01-17;2022-02-08;2022-09-05;2022-11-24;2023-01-16;2023-02-14;2023-09-04;2023-11-23]"
@@ (us_holiday_calendar (2014, 2024) |> string_of_list string_of_date)
This code calculates a 10y calendar of US holidays between 2014 and 2024. If the operators @@ and |> are unfamiliar you can read about them here.
