Submission #1211248

---

Source Code Expand

import Control.Applicative
import Control.Monad
import Data.List
import Data.List.Split
import Data.Char
import qualified Data.Set as DS
import qualified Data.Map as Map

timefix x
  | x `mod` 100 == 60 = x+40
  | otherwise = x


pad n s
  | n <= length s = s
  | otherwise = ('0' : pad (n-1) s)


con ([t1s, t1e]:[t2s, t2e]:wl)
  | t2s <= t1e = con ([t1s,max t1e t2e]:wl)
  | otherwise = [t1s,t1e] : con ([t2s,t2e]:wl)

con (a : []) = [a]

main :: IO ()
main = do
  n <- readLn
  ls <- map (\[a,b]->[timefix $ a `div` 5 * 5, timefix $ (b+4) `div` 5 * 5])  . map (map read . splitOn "-") <$> replicateM n getLine
  mapM_ (\[a,b] -> putStrLn $ pad 4 (show a) ++ "-" ++ pad 4 (show b) )  $ con $ sort ls

Submission Info

Judge Result