add containers and remove jane streets stdio
This commit is contained in:
1 parent
d8a90a3ae5
commit
661cdf1c95
2 files changed
+4
-2
No files matched your search
@@ -1,6 +1,6 @@
|
|||||||
(library
|
(library
|
||||||
(name aoc)
|
(name aoc)
|
||||||
(libraries stdio re dune-site)
|
(libraries re containers dune-site)
|
||||||
(preprocess (pps ppx_regexp)))
|
(preprocess (pps ppx_regexp)))
|
||||||
|
|
||||||
(install
|
(install
|
||||||
|
|||||||
+3
-1
@@ -1,3 +1,5 @@
|
|||||||
|
open Containers
|
||||||
|
|
||||||
let lines_of_input day =
|
let lines_of_input day =
|
||||||
let base_path =
|
let base_path =
|
||||||
match Inputs.Sites.inputs with
|
match Inputs.Sites.inputs with
|
||||||
@@ -5,5 +7,5 @@ let lines_of_input day =
|
|||||||
| _ -> failwith "cant find path containing inputs"
|
| _ -> failwith "cant find path containing inputs"
|
||||||
in
|
in
|
||||||
let path = Printf.sprintf "%s/day%d.tt" base_path day in
|
let path = Printf.sprintf "%s/day%d.tt" base_path day in
|
||||||
Stdio.In_channel.(with_file path ~f:input_lines)
|
IO.(with_in path read_lines_l)
|
||||||
;;
|
;;
|
||||||
Reference in new issue
Block a user