Submission #1435167

---

Source Code Expand

import Data.Fixed

data Wind = Wind String Int

instance Show Wind where
  show (Wind d w) = unwords [d',w'] where
    d' = if w == 0 then "C" else d
    w' = show w

main :: IO ()
main = do
  [deg,dis] <- fmap read . words <$> getLine :: IO [Int]
  let w = Wind (getDir deg) (getW dis)
  print w

getDir :: Int -> String
getDir deg  | (112.5 <= deg') && deg' < 337.5 = "NNE"
            | deg' < 562.5 = "NE"
            | deg' < 787.5 = "ENE"
            | deg' < 1012.5 = "E"
            | deg' < 1237.5 = "ESE"
            | deg' < 1462.5 = "SE"
            | deg' < 1687.5 = "SSE"
            | deg' < 1912.5 = "S"
            | deg' < 2137.5 = "SSW"
            | deg' < 2362.5 = "SW"
            | deg' < 2587.5 = "WSW"
            | deg' < 2812.5 = "W"
            | deg' < 3037.5 = "WNW"
            | deg' < 3262.5 = "NW"
            | deg' < 3487.5 = "NNW"
            | otherwise = "N"
            where
              deg' = fromIntegral deg :: Centi

getW :: Int -> Int
getW w  | w' <= 0.2 = 0
        | w' <= 1.5 = 1
        | w' <= 3.3 = 2
        | w' <= 5.4 = 3
        | w' <= 7.9 = 4
        | w' <= 10.7 = 5
        | w' <= 13.8 = 6
        | w' <= 17.1 = 7
        | w' <= 20.7 = 8
        | w' <= 24.4 = 9
        | w' <= 28.4 = 10
        | w' <= 32.6 = 11
        | otherwise = 12
        where
          wt = fromIntegral w / 60.0 :: Centi
          w' = c2d wt

c2d :: Centi -> Deci
c2d n = if toRational n - toRational n' >= 0.05 then n' + 0.1 else n' where
  n' = (fromRational . toRational) n :: Deci

Submission Info

Judge Result