2020-12-02 06:05:38 -05:00
|
|
|
let days = [|Day1.main; Day2.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-02 04:31:32 -05:00
|
|
|
| _ -> Usage.exit "<day> args..."
|