Submission #431220

---

Source Code Expand

import Control.Applicative
import Data.List

timeToMinute :: Int -> Int
timeToMinute t = t `div` 100 * 60 + t `mod` 100

pairTimeToMinute :: (Int, Int) -> (Int, Int)
pairTimeToMinute (x, y) = (timeToMinute x, timeToMinute y)

minuteToTime :: Int -> Int
minuteToTime t = t `div` 60 * 100 + t `mod` 60

pairMinuteToTime :: (Int, Int) -> (Int, Int)
pairMinuteToTime (x, y) = (minuteToTime x, minuteToTime y)

roundMinute :: (Int, Int) -> (Int, Int)
roundMinute (start, end) = (roundStart, roundEnd)
	where
		roundStart
			| digit < 5 = start - digit
			| 5 <= digit = start + 5 - digit
			where digit = start `mod` 10
		roundEnd
			| digit == 0 = end
			| digit < 5 = end + 5 - digit
			| digit == 5 = end
			| 5 < digit = end + 10 - digit
			where digit = end `mod` 10

unit :: [(Int, Int)] -> [(Int, Int)]
unit ( x : []) = [x]
unit ((start, end) : (nstart, nend) : times )
	| end < nstart = (start, end) : unit ((nstart, nend): times)
	| end < nend = unit ( (start, nend) : times)
	| otherwise = unit ((start, end) : times)

connect :: (Int, Int) -> String
connect (start, end) = (fillZero $ show start) ++ "-" ++ (fillZero $ show end)

fillZero :: String -> String
fillZero time = replicate (4 - length time) '0' ++ time

main :: IO ()
main = do
	n <- getLine

	times <- map (splitAt 4 ) . sort . lines <$> getContents
	
	let times' = [(read x::Int, read (drop 1 y)::Int) | (x, y) <- times]

--	mapM_ (putStrLn . connect) $ map pairMinuteToTime $ map (roundMinute . pairTimeToMinute) times'
	mapM_ (putStrLn . connect) $ map pairMinuteToTime $ unit $ map (roundMinute . pairTimeToMinute) times'

Submission Info

Judge Result