Submission #288856

---

Source Code Expand

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


data Period = Period Int Int deriving (Eq, Ord)

instance Show Period where
    show (Period st en) = printf "%04d-%04d" (toHM st) (toHM en)

instance Read Period where
    readsPrec _ s = [(Period ((toMinute . read . take 4) s) ((toMinute . read . drop 5) s), [])]


main :: IO ()
main = do
    num <- read <$> getLine
    ps <- (reverse . (foldl' mergeEntries []) . fromList) <$> ((replicateM num) $ (roundPeriod . read) <$> getLine)
    mapM_ putStrLn (Prelude.map show ps)


toMinute :: Int -> Int
toMinute x = (h * 60) + m
  where
    h = x `div` 100
    m = x - (h * 100)


toHM :: Int -> Int
toHM x = (h * 100) + m
  where
    h = x `div` 60
    m = x - (h * 60)


roundPeriod :: Period -> Period
roundPeriod (Period st en) = Period ((st `div` 5) * 5) (((en + 4) `div` 5) * 5)


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

Submission Info

Judge Result