Submission #276893

---

Source Code Expand

readSE 0 = return []
readSE n = do
  line <- getLine
  let s = read $ take 4 line :: Int
  let e = read $ drop 5 line :: Int
  t <- readSE (n - 1)
  return ((s, e) : t)

getStart s = s - s `mod` 5

getEnd e = let r = e `mod` 5 in
  if r == 0
  then e
  else let t = e + 5 - r in
    if t `mod` 100 == 60
    then t + 40
    else t

mergeSlot (s1, e1) (s2, e2) =
  if s1 <= s2 then
    if e1 >= e2 then (s1, e1) else (s1, e2)
  else
    if e1 >= e2 then (s2, e1) else (s2, e2)

insertSlot x [] = [x]
insertSlot x (y : ys) =
  if fst x > snd y
  then y : insertSlot x ys
  else if snd x < fst y
       then x : y : ys
       else insertSlot (mergeSlot x y) ys

sprint4 n =
  if n >= 1000 then show n
  else if n >= 100 then "0" ++ show n
       else if n >= 10 then "00" ++ show n
            else "000" ++ show n

print' [] = return ()
print' (x : xs) = do
  putStrLn $ sprint4 (fst x) ++ "-" ++ sprint4 (snd x)
  print' xs

main = do
  n <- getLine
  se <- readSE (read n :: Int)
  print' $ foldr (\p acc -> insertSlot
                            (getStart $ fst p, getEnd $ snd p)
                            acc) [] se

Submission Info

Judge Result