1 files changed, 14 insertions, 0 deletions
diff --git a/2024/OCaml/lib/grid/grid.ml b/2024/OCaml/lib/grid/grid.ml
new file mode 100644
index 0000000..0d6bc4c
--- /dev/null
+++ b/2024/OCaml/lib/grid/grid.ml
@@ -0,0 +1,14 @@
+let rec to_grid_aux tokens max_width acc =
+  match tokens with
+  | [] -> acc
+  | h :: t ->
+      let new_cell = Cell.create h |> Cell.with_left acc in
+      let new_acc = acc |> Cell.with_right new_cell in
+      to_grid_aux t max_width new_acc
+
+let to_grid tokens max_width : Cell.t option =
+  match tokens with
+  | [] -> None
+  | h :: t ->
+      let first_cell = Cell.create h in
+      Some (to_grid_aux t max_width first_cell)