From b63565cf623387da66f31b286ac4bf49383ba1e0 Mon Sep 17 00:00:00 2001
From: drew <drew@drewolson.org>
Date: Sun, 10 Dec 2023 21:29:28 -0600
Subject: [PATCH] Clean up

---
 lib/year2023/day10.ml | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/lib/year2023/day10.ml b/lib/year2023/day10.ml
index 7cd8248..be37522 100644
--- a/lib/year2023/day10.ml
+++ b/lib/year2023/day10.ml
@@ -26,12 +26,8 @@ let find_start grid =
   |> Option.value_exn
 ;;
 
-let neighbor_coords (x, y) = [ x + 1, y; x - 1, y; x, y + 1; x, y - 1 ]
-
-let neighbors grid coord =
-  coord
-  |> neighbor_coords
-  |> List.zip_exn [ E; W; S; N ]
+let neighbors grid (x, y) =
+  [ E, (x + 1, y); W, (x - 1, y); S, (x, y + 1); N, (x, y - 1) ]
   |> List.filter_map ~f:(fun (d, c) -> Map.find grid c |> Option.map ~f:(fun v -> d, v))
 ;;