Day 3: Forgot some brackets

This commit is contained in:
shu 2020-12-03 06:47:24 +01:00
parent 5335839f73
commit eeb25a1e5a

View File

@ -1,7 +1,7 @@
main :: IO ()
main = do
input <- map (concat . repeat) . lines <$> readFile "input"
print $ day3 input ((3,1))
print $ day3 input (3,1)
let slopes = [(1,1),(3,1),(5,1),(7,1),(1,2)]
print $ product $ map (day3 input) slopes