fuxino/AdventOfCode2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix indentation

Browse Source
This commit is contained in:
daniele 2024-12-19 17:09:01 +01:00
parent 9d6a92a04d
commit 9aaa19a1a5
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Day18/Puzzle2.hs
View File

@ -75,11 +75,11 @@ corruptMemory :: A.Array Coords Char -> [Coords] -> A.Array Coords Char
corruptMemory = foldl (\a b -> a A.// [(b, '#')])
findFirstBlocker :: A.Array Coords Char -> [Coords] -> Coords -> Coords -> Coords
findFirstBlocker memory (c:cs) start end =
let memory' = corruptMemory memory [c]
memoryGraph = Graph {edges = M.fromList [(k, adjacent memory' k (70, 70)) | k <- A.indices memory']}
in if findShortestPath memoryGraph start end == Infinity
then c
findFirstBlocker memory (c : cs) start end =
let memory' = corruptMemory memory [c]
memoryGraph = Graph {edges = M.fromList [(k, adjacent memory' k (70, 70)) | k <- A.indices memory']}
in if findShortestPath memoryGraph start end == Infinity
then c
else findFirstBlocker memory' cs start end
day18_2 :: IO ()