🎬 day03

Author: JaredBorders

day03/.ocamlformat

@@ -0,0 +1 @@
+profile = janestreet

day03/README.md

@@ -0,0 +1,3 @@
+## Instructions
+1. `dune build`
+2. `dune exec day03`

day03/day03.opam

@@ -0,0 +1,3 @@
+(executable
+ (public_name day03)
+ (name main))

day03/dune

@@ -0,0 +1,3 @@
+(lang dune 3.11)
+
+(name day03)

day03/dune-project

@@ -0,0 +1,16 @@
+let solve file =
+  let channel = open_in file in
+  let rec parse acc =
+    match input_line channel with
+    | line ->
+      print_endline line;
+      parse @@ (acc + 1)
+    | exception End_of_file -> close_in channel
+  in
+  parse 0
+;;
+
+let () =
+  solve "input.txt";
+  print_endline ""
+;;