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

[hs] Switch to new day system

Browse source
This commit is contained in:
Joscha 2020-12-03 00:40:20 +00:00
parent 3b0ea44036
commit b87c8e4555
4 changed files with 35 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

11
hs/src/Aoc/Y2020/A01.hs → hs/src/Aoc/Y2020/D01.hs
View file

@ -1,8 +1,10 @@
module Aoc.Y2020.A01
( solve202001
module Aoc.Y2020.D01
( day
) where
import Control.Monad
import Control.Monad
import Aoc.Day
findPair :: [Integer] -> (Integer, Integer)
findPair l = head $ do
@ -30,3 +32,6 @@ solve202001 f = do
let (y1, y2, y3) = findTriple values
putStrLn ">> Part 2"
putStrLn $ show y1 ++ " * " ++ show y2 ++ " * " ++ show y3 ++ " = " ++ show (y1 * y2 * y3)
day :: Day
day = dayFile "2020_01" solve202001