fix(2025d4p1): flip x and y of matrix when pretty printing

fixes: pp_matrix

1 files changed, 7 insertions, 1 deletions

diff --git a/2025/ocaml/lib/application/d04p01.ml b/2025/ocaml/lib/application/d04p01.ml
index 1671d53..2cc5f5d 100644
--- a/2025/ocaml/lib/application/d04p01.ml
+++ b/2025/ocaml/lib/application/d04p01.ml
@@ -26,7 +26,13 @@ let input_to_matrix input =
 (** [pp_matrix matrix] is the [input] that was used to create the [matrix]
     via [input_to_matrix input]. *)
 let pp_matrix matrix =
-  matrix
+  let row_count = Array.length matrix in
+  let column_count = Array.length matrix.(0) in
+  let matrix' = Array.make_matrix row_count column_count "" in
+  Array.iteri
+    (fun x row -> Array.iteri (fun y c -> matrix'.(y).(x) <- c) row)
+    matrix ;
+  matrix'
   |> Array.map @@ Array.fold_left (fun acc c -> acc ^ c) ""
   |> Array.fold_left
        (fun acc line -> if acc = "" then line else acc ^ "\n" ^ line)