diff options
| author | DJ O'Leary <dijitol@proton.me> | 2025-12-02 00:09:07 +0100 |
|---|---|---|
| committer | DJ O'Leary <dijitol@proton.me> | 2025-12-02 00:09:07 +0100 |
| commit | 4e1aa9b6b427afb90db678f5b16171b1988e9365 (patch) | |
| tree | 3c714a0e9f37d61a0b47ef5a1c10b32d0f5359ef /2025/ocaml/lib | |
| parent | ca7631ff2fdc6d783f1ae8043de95dcd1b6b7d08 (diff) | |
refactor(file): rename File_reader module to File
Diffstat (limited to '2025/ocaml/lib')
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/file.ml (renamed from 2025/ocaml/lib/infrastructure/file_reader.ml) | 2 | ||||
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/file.mli | 3 | ||||
| -rw-r--r-- | 2025/ocaml/lib/infrastructure/file_reader.mli | 3 | ||||
| -rw-r--r-- | 2025/ocaml/lib/presentation/cli.ml | 10 |
4 files changed, 9 insertions, 9 deletions
diff --git a/2025/ocaml/lib/infrastructure/file_reader.ml b/2025/ocaml/lib/infrastructure/file.ml index 7a80c0b..3b49c01 100644 --- a/2025/ocaml/lib/infrastructure/file_reader.ml +++ b/2025/ocaml/lib/infrastructure/file.ml @@ -1,4 +1,4 @@ -let read_file filename = +let read filename = let chan = In_channel.open_text filename in let content = In_channel.input_all chan in In_channel.close chan ; content diff --git a/2025/ocaml/lib/infrastructure/file.mli b/2025/ocaml/lib/infrastructure/file.mli new file mode 100644 index 0000000..17d4495 --- /dev/null +++ b/2025/ocaml/lib/infrastructure/file.mli @@ -0,0 +1,3 @@ +val read : string -> string +(** [read filename] is the contents of [filename] as a string. + The empty string is returned if [filename] does not exist. *) diff --git a/2025/ocaml/lib/infrastructure/file_reader.mli b/2025/ocaml/lib/infrastructure/file_reader.mli deleted file mode 100644 index bb40577..0000000 --- a/2025/ocaml/lib/infrastructure/file_reader.mli +++ /dev/null @@ -1,3 +0,0 @@ -val read_file : string -> string -(** [read_file filename] is the contents of [filename] as a string. - The empty string is returned if [filename] does not exist. *) diff --git a/2025/ocaml/lib/presentation/cli.ml b/2025/ocaml/lib/presentation/cli.ml index fba98ae..e691545 100644 --- a/2025/ocaml/lib/presentation/cli.ml +++ b/2025/ocaml/lib/presentation/cli.ml @@ -1,10 +1,10 @@ let run_day = function | 1 -> - let content = - Infrastructure.File_reader.read_file "../_input/day_01.txt" - in - let answer = Application.D01p01.solve content () in - Logs.app (fun m -> m "%d" answer) ; + let content = Infrastructure.File.read "../_input/day_01.txt" in + let answerP1 = Application.D01p01.solve content () in + Logs.app (fun m -> m "D1P1=%d" answerP1) ; + let answerP2 = Application.D01p02.solve content () in + Logs.app (fun m -> m "D1P2=%d" answerP2) ; 0 | _ -> failwith "day not implemented" |