Solves www.sppcontest.org/2008/problemA.pdf

epicWin.hs

module Main where
import Data.List
main = interact epicWin


epicWin :: String -> String
epicWin s = let x :: Integer 
		x = read (head (lines s))
			in (show $ div (getTotal (tail (lines s))) x) ++ "\n"


getTotal :: [String] -> Integer
getTotal ls = getTotal' ls 0
	where
		getTotal' [] t = t
		getTotal' (l:lss) t = getTotal' lss $ t + (getTime $ map read (words l))


getTime :: [Integer] -> Integer
getTime is = let x = zipWith (-) (drop 2 is) (take 2 is)
		 y = ((head x) * 60) + (head (tail x))
		in if y < 0 then 0 else y