Submission #108585

---

Source Code Expand

main = do
    a <- getLine
    let a' = read a :: Int
    case (a' `div` 1000, a' `mod` 1000) of
        (n, m)
            | n < 1 ->
                if m < 100
                then putStrLn "00"
                else putStrLn ("0" ++ show (m `div` 100))
            |  1 <= n && n <= 5 -> putStrLn $ show $ n * 10
            | 6 <= n && n <= 30 -> putStrLn $ show $ n + 50
            | 35 <= n && n <= 70 -> putStrLn $ show $ ((n - 30) `div` 5) + 80
            | 70 < n -> putStrLn "89"

Submission Info

Judge Result