Submission #107451

---

Source Code Expand

import Control.Applicative

main :: IO ()
main = do m <- read <$> getLine
          putStrLn . g . f $ m

-- |
-- >>> f 15000
-- "65"
-- >>> f 75000
-- "89"
-- >>> f 200
-- "2"

f :: Int -> String
f x | x < 100 = "00"
    | x >= 100 && x <= 5000 = show $ x * 10 `div` 1000
    | x >= 6000 && x <= 30000 = show $ x `div` 1000 + 50
    | x >= 35000 && x <= 70000 = show $ (x `div` 1000 - 30) `div` 5 + 80
    | x >= 70000 = "89"

-- |
-- >>> g "2"
-- "02"

g :: String -> String
g s | length s == 1 = '0' : s
    | otherwise = s

Submission Info

Judge Result