chore: make language folders snake_case

1 files changed, 11 insertions, 0 deletions

diff --git a/2024/ocaml/lib/file/read_input.ml b/2024/ocaml/lib/file/read_input.ml
new file mode 100644
index 0000000..0f7470b
--- /dev/null
+++ b/2024/ocaml/lib/file/read_input.ml
@@ -0,0 +1,11 @@
+let rec lines_from_channel ic =
+  try
+    let line = input_line ic in
+    line :: lines_from_channel ic
+  with End_of_file -> []
+
+let lines_from_file filename =
+  let channel = open_in filename in
+  let lines = lines_from_channel channel in
+  close_in channel;
+  lines