From df495d5568f60f4b8d4852fec288d0993459e118 Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Wed, 4 Dec 2024 22:39:43 +0100
Subject: [PATCH] test pass

---
 2024/day2/main.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/2024/day2/main.ml b/2024/day2/main.ml
index 84e2680..152fbdd 100644
--- a/2024/day2/main.ml
+++ b/2024/day2/main.ml
@@ -27,7 +27,7 @@ let first data =
       || List.equal (fun a b -> a = b) l (List.rev sorted)
     in
     let rec adjacent = function
-      | x :: y :: tl -> if Int.abs (x - y) >= 3 then true else adjacent (y :: tl)
+      | x :: y :: tl -> if Int.abs (x - y) > 3 then true else adjacent (y :: tl)
       | _ :: [] | [] -> false
     in
     order l && adjacent l