first
This commit is contained in:
commit
29d8387656
|
@ -0,0 +1,2 @@
|
||||||
|
_build
|
||||||
|
.merlin
|
|
@ -0,0 +1,6 @@
|
||||||
|
let days = [|Day1.main|]
|
||||||
|
|
||||||
|
let _ =
|
||||||
|
match Array.to_list Sys.argv with
|
||||||
|
| _exename :: day :: args -> days.(int_of_string day - 1) args
|
||||||
|
| _ -> Usage.exit "[day_num] args..."
|
|
@ -0,0 +1,6 @@
|
||||||
|
let main2 _input =
|
||||||
|
print_endline "boop"
|
||||||
|
|
||||||
|
let main = function
|
||||||
|
| [input] -> main2 input
|
||||||
|
| _ -> failwith "usage: $0 1 infile"
|
|
@ -0,0 +1 @@
|
||||||
|
(lang dune 2.7)
|
Loading…
Reference in New Issue