projects
/
cses-programming-tasks.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Tackled problem 1625
[cses-programming-tasks.git]
/
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)