Submission #288393

---

Source Code Expand

import Control.Applicative
import Data.List
import Text.Printf


type Period = (Int, Int)


main :: IO ()
main = do
    num <- read <$> getLine
    ps <- (mergeEntries . foldl' addToListWithSorting []) <$> ((sequence . replicate num) $ readPeriod <$> getLine)
    mapM_ putStrLn (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 + 4) `div` 5) * 5


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


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

Submission Info

Judge Result