eriedaberrie/advent-of-code
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Compare commits

base: eriedaberrie:bab443b919e2142a963546a21479f5d393f4cdc1
Branches Tags
eriedaberrie:main
..
compare: eriedaberrie:a9bf16012d9642a2c6828002f1a76381a458f782
Branches Tags
eriedaberrie:main

5 commits
bab443b919 ... a9bf16012d

Author SHA1 Message Date
eriedaberrie a9bf16012d 2023 day 8: add Haskell solution 2023-12-07 23:10:18 -08:00
eriedaberrie 7b493f2420 2023 day 8 2023-12-07 21:31:28 -08:00
eriedaberrie 985b91b61c 2023 day 7: add Haskell solution 2023-12-07 19:10:27 -08:00
eriedaberrie 16e6d52927 Add GPL license 2023-12-06 23:34:57 -08:00
eriedaberrie 36dba1e373 Add nix stuff 2023-12-06 23:34:04 -08:00
2 changed files with 6 additions and 6 deletions
Show stats Expand all files Collapse all files

6
2023/8/Main1.hs
View file

@ -9,9 +9,9 @@ getDirection 'R' = snd
countTimes :: String -> DataMap -> Int countTimes :: String -> DataMap -> Int
countTimes directions m = countTimes' directions "AAA" 0 countTimes directions m = countTimes' directions "AAA" 0
where where
countTimes' (d:ds) s countTimes' (d:ds) s n
| s == "ZZZ" = id | s == "ZZZ" = n
| otherwise = countTimes' ds (getDirection d $ m HMS.! s) . succ | otherwise = countTimes' ds (getDirection d $ m HMS.! s) (succ n)
getDataMap :: [String] -> DataMap getDataMap :: [String] -> DataMap
getDataMap = HMS.fromList . map parseLine getDataMap = HMS.fromList . map parseLine

6
2023/8/Main2.hs
View file

@ -10,9 +10,9 @@ getDirection 'R' = snd
countTimes :: String -> DataMap -> String -> Int countTimes :: String -> DataMap -> String -> Int
countTimes directions m start = countTimes' directions start 0 countTimes directions m start = countTimes' directions start 0
where where
countTimes' (d:ds) ss@(s:_) countTimes' (d:ds) ss@(s:_) n
| s == 'Z' = id | s == 'Z' = n
| otherwise = countTimes' ds (getDirection d $ m HMS.! ss) . succ | otherwise = countTimes' ds (getDirection d $ m HMS.! ss) (succ n)
solve :: String -> DataMap -> Int solve :: String -> DataMap -> Int
solve directions m = foldl1' lcm $ map (countTimes directions m) $ filter ((== 'A') . head) $ HMS.keys m solve directions m = foldl1' lcm $ map (countTimes directions m) $ filter ((== 'A') . head) $ HMS.keys m