natto1784/aoc2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

day 12: misc

Browse Source 
Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
This commit is contained in:
Amneesh Singh
2024-12-12 23:00:57 +05:30
parent b315cc6d79
commit 94ad51eb31
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/Day12.hs
View File

@@ -43,14 +43,14 @@ corners r = sum . map corners' $ S.toList r
[nw, ne, _, _] = neighbours n [nw, ne, _, _] = neighbours n
[sw, se, _, _] = neighbours s [sw, se, _, _] = neighbours s
[w', e', n', s'] = map (not . (`S.member` r)) d [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 $ in length $
filter filter
id id
[ n' && (e' || not ne'), [ n' && (e' || ne'),
e' && (s' || not se'), e' && (s' || se'),
s' && (w' || not sw'), s' && (w' || sw'),
w' && (n' || not nw') w' && (n' || nw')
] ]
main :: IO () main :: IO ()