Submission #108594


Source Code Expand

import Control.Applicative
import Control.Monad
import Text.Printf
import Debug.Trace
import Data.List
import qualified Data.ByteString.Char8 as BS
import Data.Array (Array, Ix, array, (!), range, bounds)

h '-' = ' '
h c   = c

maru [x, y] =
  let xx = x - x `mod` 5
      yy = if y `mod` 5 /= 0
           then y + 5 - y `mod` 5
           else y
      yyy = if yy `mod` 100 == 60
            then yy + 40
            else yy
  in [xx, yyy]

solve [] = []
solve ([x, y] : []) = [[x, y]]
solve ([x, y] : [xx, yy] : xs)
  | y < xx    = [x, y] : solve ([xx, yy] : xs)
  | otherwise = solve ([x, max y yy] : xs)

main :: IO ()
main = do
  n <- read <$> getLine
  m <- replicateM n $ do
    line <- getLine
    let ws = words . map h $ line
    return . maru . map read $ ws :: IO [Int]
  forM_ (solve . sort $ m) $ \[x, y] -> do
    printf "%04d-%04d\n" x y


--
-- TEMPLATE
--
toNumber (Just (x, _)) = x
toNumber Nothing       = 0
getInt = toNumber . BS.readInt <$> BS.getLine
getInts = (map (toNumber . BS.readInt) <$> (BS.words <$> BS.getLine))
getIntegers = (map (toNumber . BS.readInteger) <$> (BS.words <$> BS.getLine))
memorize func rng = let memoArray = array rng [(i, func i) | i <- (range rng)]
                    in (!) memoArray
toA lst = array (0, length lst - 1) $ zip [0..] lst
debug m a = trace (m ++ ": " ++ show a) a

Submission Info

Submission Time
Task D - 感雨時刻の整理
User yukim
Language Haskell (GHC 7.4.1)
Score 100
Code Size 1384 Byte
Status AC
Exec Time 850 ms
Memory 27868 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 83 ms 1308 KB
00_sample_02.txt AC 26 ms 1312 KB
00_sample_03.txt AC 25 ms 1444 KB
cho_cho_chokudai.txt AC 638 ms 22048 KB
chokudai_ga_cho.txt AC 679 ms 23076 KB
test_01.txt AC 31 ms 1824 KB
test_02.txt AC 28 ms 1820 KB
test_03.txt AC 30 ms 1948 KB
test_04.txt AC 29 ms 1820 KB
test_05.txt AC 29 ms 1948 KB
test_06.txt AC 30 ms 1948 KB
test_07.txt AC 29 ms 1956 KB
test_08.txt AC 29 ms 1888 KB
test_09.txt AC 39 ms 2420 KB
test_10.txt AC 40 ms 2464 KB
test_11.txt AC 37 ms 2332 KB
test_12.txt AC 37 ms 2280 KB
test_13.txt AC 30 ms 2080 KB
test_14.txt AC 39 ms 2416 KB
test_15.txt AC 40 ms 2592 KB
test_16.txt AC 30 ms 1944 KB
test_17.txt AC 38 ms 2336 KB
test_18.txt AC 31 ms 2012 KB
test_19.txt AC 34 ms 2208 KB
test_20.txt AC 36 ms 2340 KB
test_21.txt AC 833 ms 27808 KB
test_22.txt AC 839 ms 27812 KB
test_23.txt AC 826 ms 27808 KB
test_24.txt AC 846 ms 27744 KB
test_25.txt AC 850 ms 27808 KB
test_26.txt AC 831 ms 27808 KB
test_27.txt AC 727 ms 23900 KB
test_28.txt AC 833 ms 27744 KB
test_29.txt AC 25 ms 1432 KB
test_30.txt AC 27 ms 1944 KB
test_31.txt AC 128 ms 5536 KB
test_32.txt AC 27 ms 1824 KB
test_33.txt AC 536 ms 18536 KB
test_34.txt AC 25 ms 1396 KB
test_35.txt AC 32 ms 2084 KB
test_36.txt AC 810 ms 27808 KB
test_37.txt AC 814 ms 27804 KB
test_38.txt AC 816 ms 27812 KB
test_39.txt AC 832 ms 27868 KB
test_40.txt AC 845 ms 27868 KB
test_41.txt AC 650 ms 22940 KB
test_42.txt AC 832 ms 27812 KB
test_43.txt AC 672 ms 22940 KB