app/cses1094.hs

   1 main :: IO ()
   2 main = do
   3   line1 <- getLine
   4   line2 <- getLine
   5 --   let numLen = read line1
   6   let nums = map read $ words line2
   7   print $ solve nums
   8
   9 solve :: [Int] -> Int
  10 solve (n:nums) = moves
  11   where (_, moves) = foldl makeMove (n, 0) nums
  12         makeMove (current, moves) n
  13           | n >= current = (n, moves)
  14           | otherwise = (current, moves + current - n)