Day 3: be a bit less retarded
This commit is contained in:
parent
c02d76732b
commit
5335839f73
|
@ -1,16 +1,16 @@
|
||||||
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),0)
|
print $ day3 input ((3,1))
|
||||||
let slopes = [((1,1),0),((3,1),0),((5,1),0),((7,1),0),((1,2),0)]
|
let slopes = [(1,1),(3,1),(5,1),(7,1),(1,2)]
|
||||||
print $ product $ map (day3 input) slopes
|
print $ product $ map (day3 input) slopes
|
||||||
|
|
||||||
type Slope = ((Int, Int), Int)
|
type Slope = ((Int, Int), Int)
|
||||||
|
|
||||||
day3 :: [String] -> Slope -> Int
|
day3 :: [String] -> (Int,Int) -> Int
|
||||||
day3 input slope = a
|
day3 input slope = a
|
||||||
where
|
where
|
||||||
(_, a) = day3rec (input, 0) slope
|
(_, a) = day3rec (input, 0) (slope,0)
|
||||||
|
|
||||||
day3rec :: ([String], Int) -> Slope -> ([String], Int)
|
day3rec :: ([String], Int) -> Slope -> ([String], Int)
|
||||||
day3rec (t:ts, acc) ((x, y), l) =
|
day3rec (t:ts, acc) ((x, y), l) =
|
||||||
|
|
Loading…
Reference in New Issue
Block a user