Submission #288521

---

Source Code Expand

import Control.Applicative
import Data.Set
import Text.Printf


type Period = (Int, Int)


main :: IO ()
main = do
    num <- read <$> getLine
    ps <- (reverse . (foldl' mergeEntries []) . fromList) <$> ((sequence . replicate num) $ readPeriod <$> getLine)
    mapM_ putStrLn (Prelude.map showPeriod ps)


readPeriod :: String -> Period
readPeriod s = ((floorForTime . read . take 4) s, (ceilingForTime . read . drop 5) s)


showPeriod :: Period -> String
showPeriod (st, en) = printf "%04d-%04d" st en


floorForTime :: Int -> Int
floorForTime x = (x `div` 5) * 5


ceilingForTime :: Int -> Int
ceilingForTime x = x' + dh
  where
    x' = ((x + 4) `div` 5) * 5
    dh = case (x' `mod` 100) of
        60        -> 40
        otherwise -> 0


mergeEntries :: [Period] -> Period -> [Period]
mergeEntries [] p     = [p]
mergeEntries all@(hp@(hst, hen) : ps) p@(pst, pen)
  | pst > hen = p : all
  | otherwise = (min hst pst, max hen pen) : ps

Submission Info

Judge Result