fix

2026-01-05 22:42:46 +01:00 · 2026-01-05 22:42:46 +01:00 · 042f126730
commit 042f126730
parent fb6b659308
1 changed files with 3 additions and 5 deletions
--- 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 *)