Submission #1768221


Source Code Expand

import Control.Monad
import Data.IORef
import Data.Array.IO

setTime :: IOUArray Int Bool -> Int -> Int -> IO ()
setTime ary s e = do
    let st = s `div` 5 * 5
        et = (e + 4) `div` 5 * 5
    forM_ [st..et] $ \i -> writeArray ary i True

timeString :: Int -> Int -> String
timeString h m = toStr h ++ toStr (max 0 m)
    where
        toStr x
            | x < 10    = "0" ++ show x
            | otherwise = show x

rangeStrToTime :: String -> (Int, Int)
rangeStrToTime str =
    let (w1,w2) = (take 4 str, drop 5 str)
    in (read w1, read w2)

printTime :: IOUArray Int Bool -> IO ()
printTime ary = do
    flag <- newIORef False
    forM_ [0..24] $ \h ->
        forM_ [0..59] $ \m -> do
            rain <- readArray ary (h * 100 + m)
            if rain
                then do
                    f <- readIORef flag
                    unless f $ do
                        putStr $ timeString h m ++ "-"
                        writeIORef flag True
                else do
                    f <- readIORef flag
                    when f $ do
                        putStrLn $ timeString h (m - 1)
                        writeIORef flag False

main :: IO ()
main = do
    ary <- newArray (0, 2500) False
    h <- readLn
    replicateM_ h $ do
        l <- getLine
        let (s, e) = rangeStrToTime l
        setTime ary s e
    printTime ary

Submission Info

Submission Time
Task D - 感雨時刻の整理
User atctk
Language Haskell (GHC 7.10.3)
Score 100
Code Size 1412 Byte
Status AC
Exec Time 362 ms
Memory 1020 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 2 ms 508 KB
00_sample_02.txt AC 1 ms 508 KB
00_sample_03.txt AC 2 ms 508 KB
cho_cho_chokudai.txt AC 362 ms 1020 KB
chokudai_ga_cho.txt AC 272 ms 1020 KB
test_01.txt AC 3 ms 1020 KB
test_02.txt AC 3 ms 1020 KB
test_03.txt AC 3 ms 1020 KB
test_04.txt AC 3 ms 1020 KB
test_05.txt AC 3 ms 1020 KB
test_06.txt AC 4 ms 1020 KB
test_07.txt AC 3 ms 1020 KB
test_08.txt AC 3 ms 1020 KB
test_09.txt AC 8 ms 1020 KB
test_10.txt AC 7 ms 1020 KB
test_11.txt AC 6 ms 1020 KB
test_12.txt AC 6 ms 1020 KB
test_13.txt AC 4 ms 1020 KB
test_14.txt AC 7 ms 1020 KB
test_15.txt AC 8 ms 1020 KB
test_16.txt AC 3 ms 1020 KB
test_17.txt AC 6 ms 1020 KB
test_18.txt AC 4 ms 1020 KB
test_19.txt AC 5 ms 1020 KB
test_20.txt AC 5 ms 1020 KB
test_21.txt AC 230 ms 1020 KB
test_22.txt AC 246 ms 1020 KB
test_23.txt AC 233 ms 1020 KB
test_24.txt AC 245 ms 1020 KB
test_25.txt AC 237 ms 1020 KB
test_26.txt AC 224 ms 1020 KB
test_27.txt AC 224 ms 1020 KB
test_28.txt AC 225 ms 1020 KB
test_29.txt AC 1 ms 508 KB
test_30.txt AC 2 ms 1020 KB
test_31.txt AC 35 ms 1020 KB
test_32.txt AC 2 ms 1020 KB
test_33.txt AC 148 ms 1020 KB
test_34.txt AC 1 ms 508 KB
test_35.txt AC 5 ms 1020 KB
test_36.txt AC 258 ms 1020 KB
test_37.txt AC 224 ms 1020 KB
test_38.txt AC 224 ms 1020 KB
test_39.txt AC 227 ms 1020 KB
test_40.txt AC 226 ms 1020 KB
test_41.txt AC 294 ms 1020 KB
test_42.txt AC 296 ms 1020 KB
test_43.txt AC 295 ms 1020 KB