From 2c07926330771788a0a9b789b7397a159475bea7 Mon Sep 17 00:00:00 2001 From: DJ O'Leary Date: Wed, 3 Dec 2025 03:56:21 +0100 Subject: feat(2025d2p2): remove existing rules and make validation rules OR instead of AND --- 2025/ocaml/lib/domain/d02p02.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to '2025/ocaml/lib/domain/d02p02.ml') diff --git a/2025/ocaml/lib/domain/d02p02.ml b/2025/ocaml/lib/domain/d02p02.ml index 725d4b1..d1624b6 100644 --- a/2025/ocaml/lib/domain/d02p02.ml +++ b/2025/ocaml/lib/domain/d02p02.ml @@ -4,7 +4,7 @@ module ID = struct let create num = num - let validate rules id = List.fold_left (fun acc r -> acc && r id) true rules + let validate rules id = List.fold_left (fun acc r -> acc || r id) false rules let incr = ( + ) 1 -- cgit v1.2.3