working

input-output-hk · Feb 3, 2023 · 3412d37 · 3412d37
1 parent ed31ef9
commit 3412d37
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/2023-02-03/aoc12/src/AOC.hs b/2023-02-03/aoc12/src/AOC.hs
@@ -4,12 +4,10 @@ type Position = (Int, Int, Char)
 
 distance :: Position -> Position -> Int
 distance (x, y, c) (x', y', c') =
-    let z = case c of
+    let zIndex char = case char of
             'S' -> 'a'
             'E' -> 'z'
-            _ -> c
-        z' = case c' of
-            'S' -> 'a'
-            'E' -> 'z'
-            _ -> c'
+            _ -> char
+        z = zIndex c
+        z' = zIndex c'
      in abs (x' - x) + abs (y - y') + abs (fromEnum z - fromEnum z')