This commit is contained in:
Arkitu 2025-12-25 11:00:02 +00:00
parent 3ff35d03d1
commit f8e321fd11

View File

@ -12,7 +12,7 @@ let quarante_deux t =
let n = Array.length t in let n = Array.length t in
let count = ref 0 in let count = ref 0 in
let i = ref 0 in let i = ref 0 in
while !i < n || !count <= 42 do while !i < n && !count <= 42 do
if t.(!i) mod 42 = 0 then if t.(!i) mod 42 = 0 then
count := !count + 1; count := !count + 1;
i := !i + 42 i := !i + 42