This commit is contained in:
Arkitu 2025-12-25 10:12:41 +00:00
parent 762c7ed34a
commit 658b6d3357

View File

@ -14,10 +14,10 @@ let quarante_deux t =
let i = ref 0 in let i = ref 0 in
while !i < n do while !i < n do
if t.(!i) mod 42 = 0 then if t.(!i) mod 42 = 0 then
count := !count + 1 count := !count + 1;
else () i := !i + 42
done; done;
!count !count = 42
;; ;;
(* Exercice 3 *) (* Exercice 3 *)