Submission #611051

---

Source Code Expand

import Data.List (sort)
import Text.Printf (printf)

main = mapM_ putStrLn . f =<< getContents

f :: String -> [String]
f = g . map h . sort . tail . lines

g :: [(String, String)] -> [String]
g [(s1, s2)]                   = [s1 ++ "-" ++ s2]
g ((s1, s2):ts@((s3, s4):ts')) = case s2 < s3 of
                                     True  -> (s1 ++ "-" ++ s2) : g ts
                                     False -> g $ (s1, max s2 s4) : ts'

h :: String -> (String, String)
h s = (h' floor start, h' ceiling end)
      where (start, _:end) = splitAt 4 s
            h' :: (Float -> Int) -> String -> String
            h' f s = case minute' == 60 of
                         True  -> printf "%02d00" (hour + 1)
                         False -> printf "%02d%02d" hour minute'
                     where (hour, minute) = divMod (read s) 100 :: (Int, Int)
                           minute' = f (fromIntegral minute / 5) * 5

Submission Info

Judge Result