This commit is contained in:
Arkitu 2025-12-25 10:19:51 +00:00
parent 658b6d3357
commit 3ff35d03d1

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 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