Submission #109382

---

Source Code Expand

#!/usr/bin/env runghc
import Data.List
-- import Data.List.Split
import Text.Printf
main = do
  c <- getContents
  putStr . unlines . solve . lines $ c

splitOn s1 s2 = [take 4 s2, drop 5 s2] -- 本物のかわり、この問題専用
solve::[String]->[String]
solve [] = []
solve (c:cs) = (map (concat . intersperse "-" . map (printf "%04d")) . f $ ses) ++ solve ms
  where
    n = read c
    (m,ms) = splitAt n cs
    ses = sort . map (map (\x->if x`mod`100==60 then x+40 else x) . (\[s,e]->[s`div`5*5,(e+4)`div`5*5]) . map (read::String->Int) . splitOn "-") $ m
    f ([s1,e1]:[s2,e2]:ses) = if s2<=e1 then f ([s1,max e1 e2]:ses) else [s1,e1]:f ([s2,e2]:ses)
    f ses = ses

Submission Info

Judge Result