jk1006/aoc25_ocaml
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tried to improve day 5, answer still incorrect

Browse Source
This commit is contained in:
Julius Klotz
2025-12-07 22:52:26 +01:00
parent b2ffe8c591
commit 272163a161
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/day5.ml
View File

@ -1,3 +1,4 @@
let compare_ranges fr sr = if fst fr > fst sr then 1 else -1
let split_empty_line lines =
let rec split acc = function
| [] -> (List.rev acc), []
@ -33,8 +34,8 @@ let update_range (x, y) ranges =
else if u1 > t2 then (u1, u2)
else if u2 < t1 then (u1, u2)
else if t1 <= u1 && t2 >= u2 then (0,0)
else if t1 >= u1 && u1 <= t2 then (u1, t1 - 1)
else if t1 <= u1 && t2 >= u1 then (t2 + 1, u2)
else if t1 >= u1 && u2 <= t2 then (u1, t1 - 1)
else if t1 <= u1 && u2 >= t2 then (t2 + 1, u2)
else (u1 ,u2)
) (x, y) ranges
@ -43,9 +44,9 @@ let rec update_ranges to_process updated_ranges =
| [] -> updated_ranges
| (x, y) :: xs ->
let (u1, u2) = update_range (x, y) xs in
Printf.printf "Updating range: (%i,%i) to (%i, %i)\n" x y u1 u2;
update_ranges xs ((u1, u2) :: updated_ranges)
let removed = List.filter (fun (t1, t2) -> not (t1 <= u2 && t2 >= u1 && u2 <= t2)) xs in
update_ranges removed ((u1, u2) :: updated_ranges)
let solve_part2 inputs =
let (first, _) = split_empty_line inputs in
let ranges = create_ranges first in