Submission #227834


Source Code Expand

import Data.List
import Text.Printf

main :: IO ()
main = getContents >>= mapM_ print . solve . map read . tail . lines

data Range = Range Int Int deriving Eq

instance Show Range where
  show (Range s e) = printf "%04d" s ++ "-" ++ printf "%04d" e

instance Read Range where
  readsPrec _ s = [(Range (read $ take 4 s) (read $ drop 5 s), "")]

instance Ord Range where
  (<=) (Range _ x) (Range _ y) = (<=) x y

roundRange :: Range -> Range
roundRange (Range s e) = Range s' e''
  where s' = 5 * (s `div` 5)
        e' = -5 * ((-e) `div` 5)
        e'' = if e' `mod` 100 == 60 then e' + 40 else e'

solve :: [Range] -> [Range]
solve = foldr go [] . sort . map roundRange
  where go r [] = [r]
        go r@(Range s e) rs'@(Range s' e':rs)
          | s' < s = rs'
          | e < s' = r:rs'
          | otherwise = Range s e':rs

Submission Info

Submission Time
Task D - 感雨時刻の整理
User itchyny
Language Haskell (GHC 7.4.1)
Score 100
Code Size 861 Byte
Status AC
Exec Time 580 ms
Memory 10532 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 26 ms 1316 KB
00_sample_02.txt AC 25 ms 1316 KB
00_sample_03.txt AC 27 ms 1400 KB
cho_cho_chokudai.txt AC 464 ms 7792 KB
chokudai_ga_cho.txt AC 518 ms 9380 KB
test_01.txt AC 29 ms 1824 KB
test_02.txt AC 28 ms 1824 KB
test_03.txt AC 27 ms 1960 KB
test_04.txt AC 28 ms 1824 KB
test_05.txt AC 28 ms 1820 KB
test_06.txt AC 29 ms 1828 KB
test_07.txt AC 29 ms 1824 KB
test_08.txt AC 29 ms 1824 KB
test_09.txt AC 36 ms 2084 KB
test_10.txt AC 38 ms 2080 KB
test_11.txt AC 34 ms 2084 KB
test_12.txt AC 34 ms 1956 KB
test_13.txt AC 30 ms 1816 KB
test_14.txt AC 35 ms 2080 KB
test_15.txt AC 36 ms 2080 KB
test_16.txt AC 28 ms 1820 KB
test_17.txt AC 35 ms 2140 KB
test_18.txt AC 31 ms 1952 KB
test_19.txt AC 34 ms 2044 KB
test_20.txt AC 32 ms 2080 KB
test_21.txt AC 560 ms 10400 KB
test_22.txt AC 557 ms 10532 KB
test_23.txt AC 562 ms 10404 KB
test_24.txt AC 554 ms 10392 KB
test_25.txt AC 553 ms 10400 KB
test_26.txt AC 556 ms 10404 KB
test_27.txt AC 521 ms 9352 KB
test_28.txt AC 557 ms 10408 KB
test_29.txt AC 27 ms 1256 KB
test_30.txt AC 26 ms 1824 KB
test_31.txt AC 97 ms 3236 KB
test_32.txt AC 27 ms 1756 KB
test_33.txt AC 363 ms 7324 KB
test_34.txt AC 24 ms 1436 KB
test_35.txt AC 30 ms 1956 KB
test_36.txt AC 573 ms 10396 KB
test_37.txt AC 580 ms 10356 KB
test_38.txt AC 577 ms 10404 KB
test_39.txt AC 574 ms 10444 KB
test_40.txt AC 564 ms 10400 KB
test_41.txt AC 485 ms 8348 KB
test_42.txt AC 561 ms 10400 KB
test_43.txt AC 464 ms 7328 KB