2020-12-02 09:10:29 -05:00
|
|
|
open Aoc2020
|
|
|
|
|
|
2020-12-04 06:26:54 -05:00
|
|
|
let days =
|
2020-12-06 04:13:36 -05:00
|
|
|
[|Day1.main; Day2.main; Day3.main; Day4.main; Day5.main;
|
2020-12-07 13:45:57 -05:00
|
|
|
Day6.main; Day7.main|]
|
2020-12-02 03:26:55 -05:00
|
|
|
|
|
|
|
|
let _ =
|
|
|
|
|
match Array.to_list Sys.argv with
|
|
|
|
|
| _exename :: day :: args -> days.(int_of_string day - 1) args
|
2020-12-03 09:11:29 -05:00
|
|
|
| _ -> Misc.usage "<day> args..."
|
