Siphalor/adventofcode24
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Day eight: Use Flow for more sane piping

Browse Source
This commit is contained in:
Siphalor
2024-12-08 14:01:32 +01:00
parent ff74e85ba6
commit 3fe54232b2
5 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
day-08-haskell/src/Task1.hs
View File

@@ -4,10 +4,11 @@ import Common (Position, readWorld, multiMapFromList, pairPermutations)
import qualified Data.Map.Strict as Map
import qualified Data.Set as Set
import Control.Monad (join)
import Flow
task1 :: String -> Int
task1 input = case readWorld input of
((width, height), antennas) -> length $ Set.fromList $ filter isInWorld $ join $ map antinodesOfFrequency $ Map.elems $ multiMapFromList antennas
((width, height), antennas) -> multiMapFromList antennas |> Map.elems |> map antinodesOfFrequency |> join |> filter isInWorld |> Set.fromList |> length
where
antinodesOfFrequency :: [Position] -> [Position]
antinodesOfFrequency nodes = pairPermutations nodes >>= antinodesOfPair