blob: 39893d058e6a7949c3f07af4e05eeea6555ea466 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
parse ('L':n) = -(read n)
parse ('R':n) = read n
clicks x = replicate (abs x) (signum x)
isOnZero n = (n `mod` 100 == 0) || (n == 0)
main = do
input <- getContents
print (length (filter isOnZero (scanl (+) 50 (concat (map (clicks) (map parse (lines input)))))))
|
