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.mli
+++ b/lib/aoc.mli
@@ -9,6 +9,9 @@ val strings_of_file : string -> string list
 (** [strings_from_file fname] returns a list of strings from the file [fname].
    Each string represents a line from the file. *)

+val string_of_file : string -> string
+(** [string_of_file fname] returns the first line in [fname]. *)
+
 val log10i : int -> int
 (** [log10i n] returns the floor of [(log10 (float_of_int n))]. [n] must be
    positive. *)