Submission #655807

---

Source Code Expand

import Control.Monad
import Control.Applicative
import Data.List

main = do
	m <- readLn ::IO Int


	if (fv m) < 10 then putStrLn ("0" ++ (show (fv m))) else print (fv m)


fv :: Int -> Int
fv x
	|x < 100 = 0
	|100 <= x && x <= 5000 = x `div` 100
	|6000 <= x && x <= 30000 = (floor $ (fromIntegral (x :: Int)) / (fromIntegral (1000 :: Int))) + 50
    |35000 <= x && x <= 70000 = ((floor $ (fromIntegral (x :: Int)) / (fromIntegral (1000 :: Int))) - 30) `div` 5 + 80
	|otherwise = 89

Submission Info

Judge Result