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

Day thirteen corrected

Browse Source
This commit is contained in:
Siphalor
2024-12-14 00:02:37 +01:00
parent 7580dde5cc
commit 9629f55985
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
day-13-haskell/src/Lib.hs
View File

@@ -37,7 +37,6 @@ task1 input = do
task2 :: String -> IO IntType task2 :: String -> IO IntType
task2 input = do task2 input = do
print $ zip machines (map tryCalculate machines)
return $ sum bestPrices return $ sum bestPrices
where where
bestPrices :: [IntType] bestPrices :: [IntType]
@@ -63,7 +62,7 @@ tryCalculate Machine{
} = let a = -(pY % bY - pX % bX) / (aX % bX - aY % bY) } = let a = -(pY % bY - pX % bX) / (aX % bX - aY % bY)
an = numerator a an = numerator a
in case denominator a of in case denominator a of
1 -> Just $ Vec2 an ((pX - an * aX) `div` bX) 1 -> fmap (Vec2 an) ((pX - an * aX) `safeDiv` bX)
_ -> Nothing _ -> Nothing
safeDiv :: IntType -> IntType -> Maybe IntType safeDiv :: IntType -> IntType -> Maybe IntType