Koen/AdventOfCode25
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

final day 1

Browse source
This commit is contained in:
KoenDR06 2025-12-01 15:13:12 +01:00
parent b3565d5596
commit 4512b18543
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Day2501.hs
View file

@ -21,7 +21,7 @@ part2 = go 50 . convertToInts . lines
edgeCase = if x < 0 && p' `mod` 100 == 0 then 1 else 0 edgeCase = if x < 0 && p' `mod` 100 == 0 then 1 else 0
+ if x < 0 && p `mod` 100 == 0 then -1 else 0 + if x < 0 && p `mod` 100 == 0 then -1 else 0
p' = (p + x) p' = p + x
main :: IO () main :: IO ()
main = do main = do