From 042f1267303e97f4176ced0fdba5b09a44ea1cba Mon Sep 17 00:00:00 2001
From: Arkitu <85173315+Arkitu@users.noreply.github.com>
Date: Mon, 5 Jan 2026 22:42:46 +0100
Subject: [PATCH] fix

---
 dm5/lib/lib.ml | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml
index ab23ff6..f59ad10 100644
--- a/dm5/lib/lib.ml
+++ b/dm5/lib/lib.ml
@@ -103,13 +103,11 @@ let sorteren t =
     (0,0,0)
     t
   in
-  Array.init
-    (zero+one+two)
-    (fun i ->
-      if i < zero then 0
+  for i = 0 to zero+one+two-1 do
+    t.(i) <- if i < zero then 0
       else if i < zero+one then 1
       else 2
-    )
+  done
 ;;
 
 (* Exercice 9 *)