Submission #110443


Source Code Expand

import Data.List (nub, sort)

type Time = (Int, Int)

main :: IO ()
main = do
  times <- fmap str2timesList getContents
  putStr . formatting $ rainTimes times

formatting :: [(Time, Time)] -> String
formatting xs = unlines $ f xs
    where f [] = []
          f ((s, e): ts) = (time2str s ++ "-" ++ time2str e): f ts 

time2str :: Time -> String
time2str (h, m) = f h ++ f m
    where f n = if n < 10 then "0" ++ show n else show n

rainTimes :: [(Time, Time)] -> [(Time, Time)]
rainTimes (x:xs) = f x xs
    where 
      f l [] = [l]
      f l@(lStart, lEnd) (c@(cStart, cEnd):ts)
          | lEnd < cStart   = l: f c ts
          | lEnd < cEnd     = f (lStart, cEnd) ts
          | otherwise       = f l ts

str2timesList :: String -> [(Time, Time)]
str2timesList s = sort . map f . tail $ lines s
    where f cs = (floorTime . str2time $ take 4 cs, 
                  ceilTime . str2time $ drop 5 cs)

str2time :: String -> Time
str2time s = (read $ take 2 s, read $ drop 2 s)

floorTime :: Time -> Time
floorTime (h,m) = let m' = 5 * (m `div` 5) in (h, m')

ceilTime :: Time -> Time
ceilTime (h, m) | m2 == 0   = (h, m1 * 5)
                | m1 == 11  = (h + 1, 0)
                | otherwise = (h, m1 * 5 + 5)
    where (m1, m2) = m `divMod` 5

formatTime :: Time -> String
formatTime (h, m) = f h ++ ":" ++ f m
    where f n = if n < 10 then "0" ++ show n else show n

Submission Info

Submission Time
Task D - 感雨時刻の整理
User hekt
Language Haskell (GHC 7.4.1)
Score 100
Code Size 1423 Byte
Status AC
Exec Time 1004 ms
Memory 31784 KB

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 48
Set Name Test Cases
all 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, cho_cho_chokudai.txt, chokudai_ga_cho.txt, test_01.txt, test_02.txt, test_03.txt, test_04.txt, test_05.txt, test_06.txt, test_07.txt, test_08.txt, test_09.txt, test_10.txt, test_11.txt, test_12.txt, test_13.txt, test_14.txt, test_15.txt, test_16.txt, test_17.txt, test_18.txt, test_19.txt, test_20.txt, test_21.txt, test_22.txt, test_23.txt, test_24.txt, test_25.txt, test_26.txt, test_27.txt, test_28.txt, test_29.txt, test_30.txt, test_31.txt, test_32.txt, test_33.txt, test_34.txt, test_35.txt, test_36.txt, test_37.txt, test_38.txt, test_39.txt, test_40.txt, test_41.txt, test_42.txt, test_43.txt
Case Name Status Exec Time Memory
00_sample_01.txt AC 52 ms 1192 KB
00_sample_02.txt AC 25 ms 1192 KB
00_sample_03.txt AC 24 ms 1324 KB
cho_cho_chokudai.txt AC 670 ms 10268 KB
chokudai_ga_cho.txt AC 705 ms 12204 KB
test_01.txt AC 30 ms 1884 KB
test_02.txt AC 28 ms 1708 KB
test_03.txt AC 29 ms 1708 KB
test_04.txt AC 28 ms 1704 KB
test_05.txt AC 28 ms 1816 KB
test_06.txt AC 30 ms 1832 KB
test_07.txt AC 29 ms 1704 KB
test_08.txt AC 29 ms 1688 KB
test_09.txt AC 40 ms 2212 KB
test_10.txt AC 41 ms 2348 KB
test_11.txt AC 37 ms 2092 KB
test_12.txt AC 35 ms 2084 KB
test_13.txt AC 30 ms 1832 KB
test_14.txt AC 39 ms 2216 KB
test_15.txt AC 42 ms 2348 KB
test_16.txt AC 29 ms 1836 KB
test_17.txt AC 39 ms 2212 KB
test_18.txt AC 31 ms 1820 KB
test_19.txt AC 35 ms 2088 KB
test_20.txt AC 37 ms 2288 KB
test_21.txt AC 959 ms 31768 KB
test_22.txt AC 962 ms 31764 KB
test_23.txt AC 963 ms 31780 KB
test_24.txt AC 969 ms 31680 KB
test_25.txt AC 1004 ms 31784 KB
test_26.txt AC 924 ms 31784 KB
test_27.txt AC 762 ms 13352 KB
test_28.txt AC 949 ms 30628 KB
test_29.txt AC 25 ms 1196 KB
test_30.txt AC 26 ms 1708 KB
test_31.txt AC 144 ms 6180 KB
test_32.txt AC 26 ms 1704 KB
test_33.txt AC 627 ms 21524 KB
test_34.txt AC 26 ms 1172 KB
test_35.txt AC 31 ms 1840 KB
test_36.txt AC 949 ms 30756 KB
test_37.txt AC 952 ms 31780 KB
test_38.txt AC 928 ms 31652 KB
test_39.txt AC 922 ms 29604 KB
test_40.txt AC 941 ms 29608 KB
test_41.txt AC 672 ms 10280 KB
test_42.txt AC 928 ms 30636 KB
test_43.txt AC 688 ms 11300 KB