Submission #2066580

---

Source Code Expand

module Main where

  data Dir =  N | NNE | NE | ENE |
              E | ESE | SE | SSE |
              S | SSW | SW | WSW |
              W | WNW | NW | NNW | C
              deriving Show

  main :: IO ()
  main = do
    [degree, distance] <- map read . words <$> getLine
    let speed = (fromIntegral distance) / 60
    putStrLn $ (show $ direction degree speed) ++ " " ++ (show $ windPower speed)

  -- direction :: Int -> Int -> Dir
  direction degree speed =
    if speed < 0.25
      then C
      else dirs !! (((degree * 10 + 1125) `div` 2250) `mod` 16)
        where
          dirs = [N, NNE, NE, ENE,
                  E, ESE, SE, SSE,
                  S, SSW, SW, WSW,
                  W, WNW, NW, NNW
                  ]

  windPower speed
    | speed < 0.25 = 0
    | speed < 1.55 = 1
    | speed < 3.35 = 2
    | speed < 5.45 = 3
    | speed < 7.95 = 4
    | speed < 10.75 = 5
    | speed < 13.85 = 6
    | speed < 17.15 = 7
    | speed < 20.75 = 8
    | speed < 24.45 = 9
    | speed < 28.45 = 10
    | speed < 32.65 = 11
    | otherwise = 12

Submission Info

Judge Result