AtCoder Beginner Contest 001

Submission #107979

Source codeソースコード

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

main :: IO ()
main = do
  n <- readLn
  ss0 <- replicateM n $ map read . words . map (\c -> if c == '-' then ' ' else c) <$> getLine
  mapM_ p $ reverse $ foldl mrg [] $ sort $ map g $ map (map f) ss0

f :: Int -> Int
f s = s `div` 100 * 60 + s `mod` 100

g [s, t] = [s `div` 5 * 5, (t + 4) `div` 5 * 5]

p [s, t] = printf "%02d%02d-%02d%02d\n" (s`div`60) (s`mod`60) (t`div`60) (t`mod`60)

mrg [] s = [s]
mrg ([s1,e1]:ss) [s2,e2]
  | s2 <= e1 = [s1,max e1 e2]:ss
  | otherwise = [s2,e2]:[s1,e1]:ss

Submission

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

Test case

Set

Set name Score得点 / Max score Cases
all 100 / 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 128 ms 1440 KB
00_sample_02.txt AC 27 ms 1308 KB
00_sample_03.txt AC 26 ms 1444 KB
cho_cho_chokudai.txt AC 674 ms 23324 KB
chokudai_ga_cho.txt AC 720 ms 24752 KB
test_01.txt AC 33 ms 1948 KB
test_02.txt AC 30 ms 1888 KB
test_03.txt AC 31 ms 1948 KB
test_04.txt AC 28 ms 1952 KB
test_05.txt AC 29 ms 1948 KB
test_06.txt AC 31 ms 1948 KB
test_07.txt AC 29 ms 1956 KB
test_08.txt AC 29 ms 1960 KB
test_09.txt AC 41 ms 2464 KB
test_10.txt AC 42 ms 2592 KB
test_11.txt AC 39 ms 2336 KB
test_12.txt AC 36 ms 2340 KB
test_13.txt AC 31 ms 1952 KB
test_14.txt AC 38 ms 2464 KB
test_15.txt AC 42 ms 2588 KB
test_16.txt AC 30 ms 1956 KB
test_17.txt AC 39 ms 2460 KB
test_18.txt AC 32 ms 1952 KB
test_19.txt AC 36 ms 2272 KB
test_20.txt AC 37 ms 2340 KB
test_21.txt AC 878 ms 28832 KB
test_22.txt AC 902 ms 28836 KB
test_23.txt AC 881 ms 28832 KB
test_24.txt AC 880 ms 28832 KB
test_25.txt AC 890 ms 28832 KB
test_26.txt AC 864 ms 28788 KB
test_27.txt AC 763 ms 25764 KB
test_28.txt AC 866 ms 28828 KB
test_29.txt AC 25 ms 1436 KB
test_30.txt AC 26 ms 1824 KB
test_31.txt AC 135 ms 6308 KB
test_32.txt AC 26 ms 1824 KB
test_33.txt AC 565 ms 19620 KB
test_34.txt AC 28 ms 1316 KB
test_35.txt AC 33 ms 2148 KB
test_36.txt AC 862 ms 28828 KB
test_37.txt AC 892 ms 28828 KB
test_38.txt AC 882 ms 28884 KB
test_39.txt AC 893 ms 28784 KB
test_40.txt AC 861 ms 28828 KB
test_41.txt AC 669 ms 24092 KB
test_42.txt AC 849 ms 28784 KB
test_43.txt AC 699 ms 24096 KB