aoc2021/app/D2P1.hs

module Main where

main :: IO()
main =  interact solution

solution :: String -> String
solution = show
         . multhem
         . foldl applymove (0, 0)
         . map ((\[a, b] -> (head a, read b :: Int)) . words)
         . lines
    where
      applymove :: (Int, Int) -> (Char, Int) -> (Int, Int)
      applymove (x, y) (d, v) = case d of
        'f' -> (x + v, y)
        'd' -> (x, y + v)
        'u' -> (x, y - v)
        _   -> undefined -- unreachable
      multhem :: (Int, Int) -> Int
      multhem (a, b) = a * b