Tidy up 2024 day 11 code.

2024-12-11 15:45:27 +00:00
parent fcc4341237
commit c81de6e642
3 changed files with 36 additions and 25 deletions
--- a/lib/aoc.ml
+++ b/lib/aoc.ml
@@ -6,6 +6,11 @@ let distance1 a b = abs (a - b)
 let strings_of_file fname =
  In_channel.with_open_text fname In_channel.input_lines

+let string_of_file fname =
+  match In_channel.with_open_text fname In_channel.input_line with
+  | Some x -> x
+  | None -> failwith "Aoc.string_of_file"
+
 let main prep parts =
  try
    match Sys.argv with