From 94ad51eb31fc8d89f0d710c93476fc8ba4c78ae8 Mon Sep 17 00:00:00 2001
From: Amneesh Singh <natto@weirdnatto.in>
Date: Thu, 12 Dec 2024 23:00:57 +0530
Subject: [PATCH] day 12: misc

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
---
 src/Day12.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Day12.hs b/src/Day12.hs
index 97ee6b4..c6ea36d 100644
--- a/src/Day12.hs
+++ b/src/Day12.hs
@@ -43,14 +43,14 @@ corners r = sum . map corners' $ S.toList r
           [nw, ne, _, _] = neighbours n
           [sw, se, _, _] = neighbours s
           [w', e', n', s'] = map (not . (`S.member` r)) d
-          [nw', ne', sw', se'] = map (not . (`S.member` r)) [nw, ne, sw, se]
+          [nw', ne', sw', se'] = map (`S.member` r) [nw, ne, sw, se]
        in length $
             filter
               id
-              [ n' && (e' || not ne'),
-                e' && (s' || not se'),
-                s' && (w' || not sw'),
-                w' && (n' || not nw')
+              [ n' && (e' || ne'),
+                e' && (s' || se'),
+                s' && (w' || sw'),
+                w' && (n' || nw')
               ]
 
 main :: IO ()