Submission #1090073

---

Source Code Expand

import Control.Applicative ((<$>))
import Control.Monad (replicateM)
import Data.List (sort, splitAt)

type Section = (String, String)

main :: IO ()
main = do
  n <- readLn
  secs <- fmap sort $ replicateM n $ do
    (s,_:e) <- splitAt 4 <$> getLine
    return (roundTF s, roundTS e)

  mapM_ (\(s,e) -> putStrLn $ s ++ "-" ++ e) . reverse $ foldl f [] secs

  where
    f :: [Section] -> Section -> [Section]
    f [] s = [s]
    f (x:xs) s
      | x<&>s     = x<|>s:xs
      | otherwise = s:x:xs

show02d :: Int -> String
show02d i
  | i < 10    = "0" ++ show i
  | otherwise = show i

roundTF :: String -> String
roundTF t
  | m >= 60   = show02d (h+1) ++ show02d (m-60)
  | otherwise = show02d h ++ show02d m
  where
    roundI m = m`div`5*5

    h = read $ take 2 t
    m = roundI . read $ drop 2 t

roundTS :: String -> String
roundTS t
  | m >= 60   = show02d (h+1) ++ show02d (m-60)
  | otherwise = show02d h ++ show02d m
  where
    roundI m
      | m `mod` 5 /= 0 = (m`div`5+1)*5
      | otherwise      = m

    h = read $ take 2 t
    m = roundI . read $ drop 2 t

(<&>) :: Section -> Section -> Bool
(<&>) (a,b) (c,d) = c <= b

(<|>) :: Section -> Section -> Section
(<|>) (a,b) (c,d) = (min a c, max b d)

Submission Info

Judge Result