Submission #109175

---

Source Code Expand

main = do x'<-getLine
          a' <- getContents
          let schedules = map read' $ lines a'
          putStr $ unlines $ parse $ solve schedules (-1)


read'::String->(Int, Int)
read' n = (a, b)
      where [a'', b''] = map (read::String->Int) $ words $ replace n
            a' = (div a'' 100) * 60 + (mod a'' 100)
            b' = (div b'' 100) * 60 + (mod b'' 100)
            a  = div a' 5
            b  = div (b' + 4) 5

replace::String->String
replace [] = []
replace ('-':ax) = ' ' : (replace ax)
replace (a : ax) = a : (replace ax)


solve::[(Int, Int)] -> Int -> [Int]
solve _ 290 = []
solve n x | now &&  (not next) = (x + 1) : (solve n (x + 1))
          | (not now) && next = (x + 1) : (solve n (x + 1))
          | otherwise = (solve n (x + 1))
          where now = search n x
                next = search n (x + 1)


search::[(Int, Int)] -> Int -> Bool
search [] _ = False
search (a:ax) n | left <= n && n < right = True
                | otherwise = search ax n
              where (left, right) = a

parse::[Int] -> [String]
parse [] = []
parse (a:b:ax) = ((trans a) ++ "-" ++ (trans b)) : parse ax

trans::Int->String
trans x = toTime v
        where v = 100 * (div (x * 5) 60) + (mod (x * 5) 60)

toTime::Int->String
toTime x = span ++ n
         where n = (show::Int->String) x 
               span = take (4 - (length n)) "00000"

Submission Info

Judge Result