From: Neil Smith Date: Mon, 12 Dec 2022 18:29:25 +0000 (+0200) Subject: Renamed norm X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=2290e80f25ae2cc821f09d1de33345bb93b664c7;p=advent-of-code-22.git Renamed norm --- 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