Day 1 OCaml

.gitignore

@@ -0,0 +1 @@
+inputs

ocaml/1.ml

@@ -0,0 +1,20 @@
+#load "str.cma" ;;
+
+let read_file filename =
+  let ch = open_in filename in
+  let s = really_input_string ch (in_channel_length ch) in
+  close_in ch;
+  s
+  ;;
+
+let contents = read_file "inputs/1.txt" ;;
+(* print_endline contents ;; *)
+
+let maxcal = Str.split (Str.regexp "\n\n") contents
+  |> List.map (String.split_on_char '\n')
+  |> List.map (List.map (int_of_string))
+  |> List.map (List.fold_left (+) 0)
+  |> List.fold_left (max) 0
+  ;;
+
+Printf.printf "%d" maxcal