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

[hs] Clean up 2020 days

Browse source
This commit is contained in:
Joscha 2020-12-03 11:51:19 +00:00
parent 23636d3fc0
commit c48319423d
3 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
hs/src/Aoc/Y2020/D01.hs
View file

@ -31,8 +31,9 @@ solver values = do
let (x1, x2) = findPair values
putStrLn $ show x1 ++ " * " ++ show x2 ++ " = " ++ show (x1 * x2)
let (y1, y2, y3) = findTriple values
putStrLn ""
putStrLn ">> Part 2"
let (y1, y2, y3) = findTriple values
putStrLn $ show y1 ++ " * " ++ show y2 ++ " * " ++ show y3 ++ " = " ++ show (y1 * y2 * y3)
day :: Day