diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml index b75db38..5eacdf5 100644 --- a/dm5/lib/lib.ml +++ b/dm5/lib/lib.ml @@ -14,10 +14,10 @@ let quarante_deux t = let i = ref 0 in while !i < n do if t.(!i) mod 42 = 0 then - count := !count + 1 - else () + count := !count + 1; + i := !i + 42 done; - !count + !count = 42 ;; (* Exercice 3 *)