From 2290e80f25ae2cc821f09d1de33345bb93b664c7 Mon Sep 17 00:00:00 2001 From: Neil Smith Date: Mon, 12 Dec 2022 20:29:25 +0200 Subject: [PATCH] Renamed norm --- advent09/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.34.1