Day 3: Forgot some brackets
This commit is contained in:
parent
5335839f73
commit
eeb25a1e5a
|
@ -1,7 +1,7 @@
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
input <- map (concat . repeat) . lines <$> readFile "input"
|
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)]
|
let slopes = [(1,1),(3,1),(5,1),(7,1),(1,2)]
|
||||||
print $ product $ map (day3 input) slopes
|
print $ product $ map (day3 input) slopes
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user