Advertisement
Guest User

arc069_c-TLE

a guest
Feb 20th, 2017
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     main::IO()
  2.     main = do
  3.       n <- (read::String->Int)  <$> getLine
  4.       ns <- map read . words <$> getLine
  5.       mapM_ (putStrLn . show) . reverse $ solve 0 ns []
  6.      
  7.     solve ::  Int -> [Int] -> [Int] -> [Int]
  8.     solve _ [] ans = ans
  9.     solve m (car:cdr) ans = case car > m of
  10.           True -> solve car cdr $ (sum $ map ((max 0) . (subtract m). (min car)) (car:cdr)):ans
  11.           False -> solve m cdr $ 0:ans
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement