advent-of-code/2015/day01/day01.hs

19 lines
415 B
Haskell
Raw Normal View History

2024-12-04 17:15:59 +11:00
import Aoc
2024-12-02 19:31:20 +11:00
parseFile :: [String] -> [Char]
parseFile lines = let [line] = lines in line
part1 :: [Char] -> Int
part1 ps = count '(' - count ')'
where count c = length $ filter (==c) ps
part2 :: [Char] -> Int
part2 = f 0
where
f 0 (')':_) = 1
f n (')':ps) = f (n-1) ps + 1
f n ('(':ps) = f (n+1) ps + 1
f _ _ = undefined
main :: IO ()
main = aocMain parseFile part1 part2