AtCoder Beginner Contest 001

Submission #288393

Source codeソースコード

import Control.Applicative
import Data.List
import Text.Printf


type Period = (Int, Int)


main :: IO ()
main = do
    num <- read <$> getLine
    ps <- (mergeEntries . foldl' addToListWithSorting []) <$> ((sequence . replicate num) $ readPeriod <$> getLine)
    mapM_ putStrLn (map showPeriod ps)


readPeriod :: String -> Period
readPeriod s = ((floorForTime . read . take 4) s, (ceilingForTime . read . drop 5) s)


showPeriod :: Period -> String
showPeriod (st, en) = printf "%04d-%04d" st en


floorForTime :: Int -> Int
floorForTime x = (x `div` 5) * 5


ceilingForTime :: Int -> Int
ceilingForTime x = ((x + 4) `div` 5) * 5


addToListWithSorting :: [Period] -> Period -> [Period]
addToListWithSorting [] p = [p]
addToListWithSorting all@(hp@(hst, hen) : ps) p@(pst, pen)
  | pst <= hst = p : all
  | otherwise  = hp : (addToListWithSorting ps p)


mergeEntries :: [Period] -> [Period]
mergeEntries []       = []
mergeEntries (p : ps) = loop ps p
  where
    loop [] p     = [p]
    loop (hp@(hst, hen) : ps) p@(pst, pen)
      | pen < hst = p : (loop ps hp)
      | otherwise = loop ps (min hst pst, max hen pen)

Submission

Task問題 D - 感雨時刻の整理
User nameユーザ名 ふじやん
Created time投稿日時
Language言語 Haskell (GHC 7.4.1)
Status状態 TLE
Score得点 0
Source lengthソースコード長 1168 Byte
File nameファイル名
Exec time実行時間 ms
Memory usageメモリ使用量 -

Test case

Set

Set name Score得点 / Max score Cases
all 0 / 100 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
00_sample_01.txt AC 27 ms 1248 KB
00_sample_02.txt AC 24 ms 1116 KB
00_sample_03.txt AC 25 ms 1308 KB
cho_cho_chokudai.txt WA
chokudai_ga_cho.txt AC 536 ms 27736 KB
test_01.txt AC 31 ms 1692 KB
test_02.txt AC 29 ms 1756 KB
test_03.txt AC 29 ms 1816 KB
test_04.txt AC 30 ms 1804 KB
test_05.txt AC 30 ms 1704 KB
test_06.txt AC 31 ms 2008 KB
test_07.txt AC 30 ms 1756 KB
test_08.txt AC 28 ms 1744 KB
test_09.txt AC 50 ms 3036 KB
test_10.txt AC 41 ms 2952 KB
test_11.txt AC 39 ms 2776 KB
test_12.txt AC 35 ms 2528 KB
test_13.txt AC 28 ms 1780 KB
test_14.txt AC 40 ms 2780 KB
test_15.txt AC 43 ms 3036 KB
test_16.txt AC 31 ms 1884 KB
test_17.txt AC 41 ms 2904 KB
test_18.txt AC 30 ms 2008 KB
test_19.txt AC 37 ms 2660 KB
test_20.txt AC 39 ms 2788 KB
test_21.txt TLE
test_22.txt TLE
test_23.txt TLE
test_24.txt TLE
test_25.txt TLE
test_26.txt TLE
test_27.txt TLE
test_28.txt TLE
test_29.txt AC 27 ms 1180 KB
test_30.txt WA
test_31.txt WA
test_32.txt AC 30 ms 1628 KB
test_33.txt TLE
test_34.txt AC 25 ms 1320 KB
test_35.txt WA
test_36.txt TLE
test_37.txt TLE
test_38.txt TLE
test_39.txt TLE
test_40.txt TLE
test_41.txt TLE
test_42.txt TLE
test_43.txt AC 546 ms 27616 KB