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

Improve code for Day 8

Browse Source
This commit is contained in:
daniele 2024-12-08 17:22:32 +01:00
parent 5f79e1b2f4
commit 90404a9085
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
2 changed files with 14 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Day8/puzzle1.hs
View File

@ -16,25 +16,15 @@ getAntennas grid = concat . getZipList $ getAntennasRow <$> ZipList [0..] <*> Zi
isInside :: Coords -> Int -> Int -> Bool isInside :: Coords -> Int -> Int -> Bool
isInside c x y = fst c >= 0 && fst c < x && snd c >= 0 && snd c < y isInside c x y = fst c >= 0 && fst c < x && snd c >= 0 && snd c < y
getAntinodes :: Antenna -> Antenna -> Int -> Int -> [Coords] getAntinodes :: Antenna -> Antenna -> Int -> Int -> [Coords]
getAntinodes a b maxX maxY= let xa = fst $ coordinates a getAntinodes a b maxX maxY = let xa = fst $ coordinates a
ya = snd $ coordinates a ya = snd $ coordinates a
xb = fst $ coordinates b xb = fst $ coordinates b
yb = snd $ coordinates b yb = snd $ coordinates b
distX = abs $ xa - xb in if frequency a /= frequency b || coordinates a == coordinates b
distY = abs $ ya - yb then []
in if frequency a /= frequency b || coordinates a == coordinates b else filter (\c -> isInside c maxX maxY) [(2 * xa - xb, 2 * ya - yb), (2 * xb - xa, 2 * yb - ya)]
then []
else if xa > xb && ya > yb
then filter (\c -> isInside c maxX maxY) [(xb - distX, yb - distY), (xa + distX, ya + distY)]
else if xa > xb && ya < yb
then filter (\c -> isInside c maxX maxY) [(xa + distX, ya - distY), (xb - distX, yb + distY)]
else if xa == xb && ya > yb
then filter (\c -> isInside c maxX maxY) [(xa, ya + distY), (xb, yb - distY)]
else if ya == yb && xa > xb
then filter (\c -> isInside c maxX maxY) [(xa + distX, ya), (xb - distX, yb)]
else getAntinodes b a maxX maxY
main = do main = do
contents <- lines <$> readFile "day8.txt" contents <- lines <$> readFile "day8.txt"

49
Day8/puzzle2.hs
View File

@ -13,7 +13,7 @@ readAntenna frequency coordinates = Antenna {frequency=frequency, coordinates=co
getAntennas :: [String] -> [Antenna] getAntennas :: [String] -> [Antenna]
getAntennas grid = concat . getZipList $ getAntennasRow <$> ZipList [0..] <*> ZipList grid getAntennas grid = concat . getZipList $ getAntennasRow <$> ZipList [0..] <*> ZipList grid
where getAntennasRow n row = [ readAntenna x (n, y) | (x, y) <- zip row [0..], x /= '.' ] where getAntennasRow n row = [ readAntenna x (n, y) | (x, y) <- zip row [0..], x /= '.' ]
isInside :: Coords -> Int -> Int -> Bool isInside :: Coords -> Int -> Int -> Bool
isInside c x y = fst c >= 0 && fst c < x && snd c >= 0 && snd c < y isInside c x y = fst c >= 0 && fst c < x && snd c >= 0 && snd c < y
@ -27,50 +27,13 @@ getAntinodes a b maxX maxY = let xa = fst $ coordinates a
ya = snd $ coordinates a ya = snd $ coordinates a
xb = fst $ coordinates b xb = fst $ coordinates b
yb = snd $ coordinates b yb = snd $ coordinates b
distX = abs $ xa - xb distX = xa - xb
distY = abs $ ya - yb distY = ya - yb
in if frequency a /= frequency b || coordinates a == coordinates b in if frequency a /= frequency b || coordinates a == coordinates b
then [] then []
else if xa > xb && ya > yb else filter (\c -> isInside c maxX maxY) [(2 * xa - xb, 2 * ya - yb), (2 * xb - xa, 2 * yb - ya)]
then filter (\c -> isInside c maxX maxY) [(xa + distX, ya + distY), (xb - distX, yb - distY)] ++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (distX, distY))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (distX, distY)) ++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (-distX, -distY))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (-distX, -distY))
++ [coordinates a, coordinates b]
else if xa > xb && ya < yb
then filter (\c -> isInside c maxX maxY) [(xa + distX, ya - distY), (xb - distX, yb + distY)]
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (distX, -distY))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (-distX, distY))
++ [coordinates a, coordinates b]
else if xa == xb && ya > yb
then filter (\c -> isInside c maxX maxY) [(xa, ya + distY), (xb, yb - distY)]
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (0, distY))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (0, -distY))
++ [coordinates a, coordinates b]
else if xa == xb && ya < yb
then filter (\c -> isInside c maxX maxY) [(xa, ya - distY), (xb, yb + distY)]
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (0, -distY))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (0, distY))
++ [coordinates a, coordinates b]
else if ya == yb && xa > xb
then filter (\c -> isInside c maxX maxY) [(xa + distX, ya), (xb - distX, yb)]
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (distX, 0))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (-distX, 0))
++ [coordinates a, coordinates b]
else if ya == yb && xa < xb
then filter (\c -> isInside c maxX maxY) [(xa - distX, ya), (xb + distX, yb)]
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (-distX, 0))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (distX, 0))
++ [coordinates a, coordinates b]
else if xa < xb && ya > yb
then filter (\c -> isInside c maxX maxY) [(xa - distX, ya + distY), (xb + distX, yb - distY)]
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (-distX, distY))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (distX, -distY))
++ [coordinates a, coordinates b]
else filter (\c -> isInside c maxX maxY) [(xa - distX, ya - distY), (xb + distX, yb + distY)]
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates a) (-distX, -distY))
++ takeWhile (\c -> isInside c maxX maxY) (generateCoords (coordinates b) (distX, distY))
++ [coordinates a, coordinates b]
main = do main = do
contents <- lines <$> readFile "day8.txt" contents <- lines <$> readFile "day8.txt"