pingu/aoc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Part 2 easy

Browse Source
This commit is contained in:
pingu 2024-12-10 08:18:14 +01:00
parent 9b187ca14b
commit 0415c9eacf
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
app/10.hs
View File

@ -21,12 +21,17 @@ travel :: (Int,Int) -> Matrix Int -> [(Int,Int)]
travel p s = let curr = uncurry getElem p s in travel p s = let curr = uncurry getElem p s in
if curr == 9 then [p] else getAbove p s >>= (`travel` s) if curr == 9 then [p] else getAbove p s >>= (`travel` s)
travel' :: (Int,Int) -> Matrix Int -> Int
travel' p s = let curr = uncurry getElem p s in
if curr == 9 then 1 else sum $ getAbove p s <&> (`travel'` s)
solve1 :: Matrix Int -> Int solve1 :: Matrix Int -> Int
solve1 s = length . concatMap (nub . (`travel` s)) $ getAllDigit 0 s solve1 s = length . concatMap (nub . (`travel` s)) $ getAllDigit 0 s
solve2 = undefined solve2 :: Matrix Int -> Int
solve2 s = sum . ((`travel'` s) <$>) $ getAllDigit 0 s
main :: IO () main :: IO ()
main = readFile "inputs/10" <&> parse >>= \i -> main = readFile "inputs/10" <&> parse >>= \i ->
print (solve1 i) print (solve1 i) >>
-- >> print (solve2 i) print (solve2 i)