Anri/adventofcode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

test pass

Browse source
This commit is contained in:
Mylloon 2024-12-04 22:39:43 +01:00
parent 99c05dbcc2
commit df495d5568
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
2024/day2/main.ml
View file

@ -27,7 +27,7 @@ let first data =
|| List.equal (fun a b -> a = b) l (List.rev sorted) || List.equal (fun a b -> a = b) l (List.rev sorted)
in in
let rec adjacent = function 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 | _ :: [] | [] -> false
in in
order l && adjacent l order l && adjacent l