X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent09%2FMain.hs;h=4273e24d61deb1003d8a2dc88078432ec5d93d4e;hb=2290e80f25ae2cc821f09d1de33345bb93b664c7;hp=0ad2bb5e2eecfe98e7e8fc3c59d28dd8cadc8a8d;hpb=0183d687f5495ecd2ae818e0bae1ff5c4146069f;p=advent-of-code-22.git

diff --git a/advent09/Main.hs b/advent09/Main.hs
index 0ad2bb5..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