Skip to content

Instantly share code, notes, and snippets.

@lauzi

lauzi/re.hs

Created December 4, 2014 17:33
Show Gist options
  • Save lauzi/70f1b557d58ac98320b5 to your computer and use it in GitHub Desktop.
Save lauzi/70f1b557d58ac98320b5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
re.hs
f :: (Int, [Int]) -> Int
f (t, xs) = maximum $ zipWith (-) (drop t ys) ys
where ys = scanl (+) 0 xs
main = interact $ show . f . p . lines
where p (hd:tl) = (read . head $ words hd, map read tl)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment