From 6daf7124fefb79d3f5d69fdda1f7f7a3cefb0ed1 Mon Sep 17 00:00:00 2001
From: Arkitu <git@arkitu.fr>
Date: Fri, 12 Dec 2025 12:07:22 +0100
Subject: [PATCH] fix dominant

---
 dm5/lib/lib.ml   | 2 +-
 dm5/test/test.ml | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml
index b099e71..cc347d6 100644
--- a/dm5/lib/lib.ml
+++ b/dm5/lib/lib.ml
@@ -113,7 +113,7 @@ let sorteren t =
 
 (* Exercice 9 *)
 let dominant s =
-  let counts = Array.make 0 126 in
+  let counts = Array.make 126 0 in
   String.iter (fun c ->
     let c = Char.code c in
     counts.(c) <- counts.(c) + 1;
diff --git a/dm5/test/test.ml b/dm5/test/test.ml
index 8a76543..3513b98 100644
--- a/dm5/test/test.ml
+++ b/dm5/test/test.ml
@@ -20,3 +20,5 @@ assert (rotation [|[||]; [||]|] = [||]);;
 assert (plsci [||] = (0,0));;
 assert (plsci [|1|] = (0,1));;
 assert (plsci [|1; 1|] = (0,2));;
+
+assert (dominant "aaetisanutesn'gqphteiuatnstbm(mab" = 'a');;