Submission #110485

---

Source Code Expand

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 Info

Judge Result