arkitu/mp2i-info
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix

Browse Source
This commit is contained in:
Arkitu 2026-01-05 22:42:46 +01:00
parent fb6b659308
commit 042f126730
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dm5/lib/lib.ml
View File

@ -103,13 +103,11 @@ let sorteren t =
(0,0,0) (0,0,0)
t t
in in
Array.init for i = 0 to zero+one+two-1 do
(zero+one+two) t.(i) <- if i < zero then 0
(fun i ->
if i < zero then 0
else if i < zero+one then 1 else if i < zero+one then 1
else 2 else 2
) done
;; ;;
(* Exercice 9 *) (* Exercice 9 *)