From f8e321fd11b5a04703ec577a6a63e7f0f7d3d91c Mon Sep 17 00:00:00 2001 From: Arkitu Date: Thu, 25 Dec 2025 11:00:02 +0000 Subject: [PATCH] fix --- dm5/lib/lib.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml index 298dd10..1f72dc6 100644 --- a/dm5/lib/lib.ml +++ b/dm5/lib/lib.ml @@ -12,7 +12,7 @@ let quarante_deux t = let n = Array.length t in let count = 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 count := !count + 1; i := !i + 42