X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent09%2FMain.hs;h=4273e24d61deb1003d8a2dc88078432ec5d93d4e;hb=refs%2Fheads%2Fmain;hp=1314035a7f53cf49c01f5614f3cd1e09e448965e;hpb=75c68345bc86cf90827b713603582ef52902429d;p=advent-of-code-22.git

diff --git a/advent09/Main.hs b/advent09/Main.hs
index 1314035..4273e24 100644
--- a/advent09/Main.hs
+++ b/advent09/Main.hs
@@ -48,12 +48,12 @@ expandPath = concatMap expandStep
         expandStep (D n) = replicate n (V2  0 -1)
         expandStep (R n) = replicate n (V2  1  0)
 
-manhattan :: Position -> Position -> Int
-manhattan p1 p2 = max dx dy
+lInfNorm :: Position -> Position -> Int
+lInfNorm p1 p2 = max dx dy
   where V2 dx dy = abs $ p1 ^-^ p2
 
 touching :: Position -> Position -> Bool
-touching p1 p2 =  (manhattan p1 p2) <= 1
+touching p1 p2 = (lInfNorm p1 p2) <= 1
 
 towards :: Position -> Position -> Position
 towards p1 p2 = signum $ p2 ^-^ p1