1 {-# LANGUAGE NegativeLiterals #-}
3 module Main(main) where
5 import Data.Char (digitToInt)
9 digits <- readFile "data/advent01.txt"
13 part1 :: String -> Int
16 part2 :: String -> Int
17 part2 digits = solve (length digits `div` 2) digits
20 -- solve n digits = sum $ map (digitToInt . fst)
21 -- $ filter (uncurry (==))
26 solve :: Int -> String -> Int
27 solve n digits = sum $ zipWith (\a b -> if a == b then digitToInt a else 0) digits