Submission #431420

---

Source Code Expand

import Control.Applicative

main = do
    inputs <- (map read . words) <$> getLine
    case inputs of
        [_]       -> putStrLn "invalid inputs"
        otherwise -> calc (inputs !! 0) (inputs !! 1)

calc deg dis =
    if wf == "0"
        then
            putStrLn "C 0"
        else
            putStrLn ((allDirections deg) ++ " " ++ wf)
    where wf = beaufortScale $ roundUpOn5 (dis / 60)

directions = ["N", "NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", "S", "SSW", "SW", "WSW", "W", "WNW", "NW", "NNW", "N"]
allDirections ang = directions !! (floor ((ang + 112.5) / 225))

beaufortScale wv
 |  wv <=  0.2 =  "0"
 |  wv <=  1.5 =  "1"
 |  wv <=  3.3 =  "2"
 |  wv <=  5.4 =  "3"
 |  wv <=  7.9 =  "4"
 |  wv <= 10.7 =  "5"
 |  wv <= 13.8 =  "6"
 |  wv <= 17.1 =  "7"
 |  wv <= 20.7 =  "8"
 |  wv <= 24.4 =  "9"
 |  wv <= 28.4 = "10"
 |  wv <= 32.6 = "11"
 |  otherwise  = "12"

-- 小数点第二位を四捨五入する機能が標準でないので追加
roundUpOn5 x = let (n, r) = properFraction (10 * x)
                   m = if r < 0 then n - 1 else n + 1
               in case signum (abs r - 0.5 + 0.001) of
                -1 -> realToFrac n / 10
                0  -> realToFrac m / 10
                1  -> realToFrac m / 10
                _ -> error "round default defn: Bad value"

Submission Info

Judge Result