diff options
Diffstat (limited to '2025/ocaml/lib/domain/d02p02.ml')
| -rw-r--r-- | 2025/ocaml/lib/domain/d02p02.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |