Submission #427879

---

Source Code Expand

import Control.Applicative
import Data.List

type Period = (Int,Int)

readPeriod :: IO Period
readPeriod = do
    (start,'-':end) <- break (== '-') <$> getLine
    let roundS = read start `div` 5 * 5
    let roundE = (read end + 4) `div` 5 * 5
    return (roundS, roundE + if roundE `mod` 100 == 60 then 40 else 0)

appendPeriod :: [Period] -> [Period]
appendPeriod (x:[]) = [x]
appendPeriod ((xs,xe):(ys,ye):ps) = if xe < ys
                                        then (xs,xe) : appendPeriod ((ys,ye):ps)
                                        else if xe < ye
                                            then appendPeriod ((xs,ye):ps)
                                            else appendPeriod ((xs,xe):ps)

printPeriod :: Period -> IO ()
printPeriod (s,e) = putStrLn $ zeroExtend 4 (show s) ++ "-" ++ zeroExtend 4 (show e)

zeroExtend :: Int -> String -> String
zeroExtend n str = replicate (n - length str) '0' ++ str

main :: IO ()
main = do
    n <- readLn
    appendPeriod . sortBy compare <$> sequence (replicate n readPeriod) >>= mapM_ printPeriod

Submission Info

Judge Result