Submission #110527

---

Source Code Expand

import Control.Applicative

main :: IO()
main = do
  m <- read <$> getLine
  putStrLn $ keep_two_char $ calc_vv m 

calc_vv :: Double -> Double
calc_vv m | (<) km 0.1 = 0
          | (&&) ( (<=) 0.1 km ) ( (<=) km 5 ) = (*) km 10
          | (&&) ( (<=) 6   km ) ( (<=) km 30) = (+) km 50
          | (&&) ( (<=) 35  km ) ( (<=) km 70) = (+) ((/) ((-) km 30) 5) 80
          | otherwise = 89
          where km = m / 1000

keep_two_char :: Double -> String
keep_two_char vv = if vv < 10
                     then ("0" :: String) ++ (show $ truncate vv)
                     else show $ truncate vv

Submission Info

Judge Result