Submission #107903

---

Source Code Expand

import Control.Applicative

main = do
    [deg,dis] <- map read . words <$> getLine
    putStrLn $ calc (deg / 10) (f dis)
    where f = g . (/60)
          g x | floor (x * 100) `mod` 10 < 5 = (fromIntegral $ floor $ x * 10) / 10
              | otherwise = (fromIntegral $ ceiling $ x * 10) / 10

calc deg dis
    | w == 0 = "C 0"
    | otherwise = foo deg ++ " " ++ show w
    where w = bar dis

foo x
    | 11.25 <= x  && x < 33.75  = "NNE"
    | 33.75 <= x  && x < 56.25  = "NE"
    | 56.25 <= x  && x < 78.75  = "ENE"
    | 78.75 <= x  && x < 101.25 = "E"
    | 101.25 <= x && x < 123.75 = "ESE"
    | 123.75 <= x && x < 146.25 = "SE"
    | 146.25 <= x && x < 168.75 = "SSE"
    | 168.75 <= x && x < 191.25 = "S"
    | 191.25 <= x && x < 213.75 = "SSW"
    | 213.75 <= x && x < 236.25 = "SW"
    | 236.25 <= x && x < 258.75 = "WSW"
    | 258.75 <= x && x < 281.25 = "W"
    | 281.25 <= x && x < 303.75 = "WNW"
    | 303.75 <= x && x < 326.25 = "NW"
    | 326.25 <= x && x < 348.75 = "NNW"
    | otherwise = "N"

bar x
    | 0.0 <= x  && x <= 0.2 = 0
    | 0.3 <= x  && x <= 1.5 = 1
    | 1.6 <= x  && x <= 3.3 = 2
    | 3.4 <= x  && x <= 5.4 = 3
    | 5.5 <= x  && x <= 7.9 = 4
    | 8.0 <= x  && x <= 10.7 = 5
    | 10.8 <= x && x <= 13.8 = 6
    | 13.9 <= x && x <= 17.1 = 7
    | 17.2 <= x && x <= 20.7 = 8
    | 20.8 <= x && x <= 24.4 = 9
    | 24.5 <= x && x <= 28.4 = 10
    | 28.5 <= x && x <= 32.6 = 11
    | 32.7 <= x = 12

Submission Info

Judge Result