ryan/aoc-2022-ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refac day 14 to use new Vec2.bounds function

Browse Source
This commit is contained in:
ryan 2023-11-08 10:37:44 -08:00
parent b90478cd03
commit b89e9c05ef
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/day14.ml
View File

@ -44,18 +44,8 @@ let draw_rocks grid points =
let parse_grid lines start = let parse_grid lines start =
let points = List.map parse_line lines in let points = List.map parse_line lines in
let lx, hx, ly, hy = let Vec2.{ x = lx; y = ly }, Vec2.{ x = hx; y = hy } =
points points |> List.flatten |> List.append [ start ] |> Vec2.bounds 0
|> List.flatten
|> List.append [ start ]
|> List.fold_left
(fun (lx, hx, ly, hy) Vec2.{ x; y } ->
let lx = min lx x in
let hx = max hx x in
let ly = min ly y in
let hy = max hy y in
lx, hx, ly, hy)
(Int.max_int, 0, Int.max_int, 0)
in in
let pad_floor = 1 in let pad_floor = 1 in
let pad_x = 2 in let pad_x = 2 in