AtCoder Beginner Contest 001

Submission #110485

Source codeソースコード

import Control.Applicative ((<$>))

solve :: Int -> Int
solve m
  | m < 100 = 0
  | m <= 5000 = m `div` 100
  | m <= 30000 = (m `div` 1000) + 50
  | m <= 70000 = (((m `div` 1000) - 30) `div` 5) + 80
  | otherwise = 89

main :: IO ()
main = do
  input <- read <$> getLine
  putStrLn $ toS $ solve input
    where toS x = if x < 10 then "0" ++ show x else show x

Submission

Task問題 B - 視程の通報
User nameユーザ名 morris555
Created time投稿日時
Language言語 Haskell (GHC 7.4.1)
Status状態 AC
Score得点 100
Source lengthソースコード長 374 Byte
File nameファイル名
Exec time実行時間 150 ms
Memory usageメモリ使用量 1304 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,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 case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
00_sample_01.txt AC 75 ms 1192 KB
00_sample_02.txt AC 25 ms 1196 KB
00_sample_03.txt AC 25 ms 1300 KB
test_01.txt AC 22 ms 1188 KB
test_02.txt AC 23 ms 1296 KB
test_03.txt AC 25 ms 1188 KB
test_04.txt AC 24 ms 1196 KB
test_05.txt AC 24 ms 1196 KB
test_06.txt AC 24 ms 1196 KB
test_07.txt AC 24 ms 1304 KB
test_08.txt AC 24 ms 1196 KB
test_09.txt AC 24 ms 1196 KB
test_10.txt AC 24 ms 1196 KB
test_11.txt AC 24 ms 1192 KB
test_12.txt AC 24 ms 1196 KB
test_13.txt AC 24 ms 1192 KB
test_14.txt AC 24 ms 1192 KB
test_15.txt AC 24 ms 1192 KB
test_16.txt AC 24 ms 1192 KB
test_17.txt AC 26 ms 1180 KB
test_18.txt AC 150 ms 1296 KB
test_19.txt AC 23 ms 1196 KB
test_20.txt AC 23 ms 1304 KB
test_21.txt AC 24 ms 1196 KB
test_22.txt AC 24 ms 1192 KB
test_23.txt AC 24 ms 1196 KB
test_24.txt AC 24 ms 1196 KB
test_25.txt AC 24 ms 1188 KB
test_26.txt AC 25 ms 1176 KB
test_27.txt AC 23 ms 1184 KB
test_28.txt AC 23 ms 1304 KB
test_29.txt AC 24 ms 1304 KB
test_30.txt AC 23 ms 1304 KB
test_31.txt AC 28 ms 1180 KB
test_32.txt AC 22 ms 1188 KB
test_33.txt AC 24 ms 1300 KB
test_34.txt AC 23 ms 1192 KB
test_35.txt AC 24 ms 1192 KB