Submission #131552

---

Source Code Expand

import Control.Applicative
import Control.Monad

main :: IO ()
main = do
  [deg, dis] <- map read . words <$> getLine :: IO [Int]
  putStrLn $ solve deg dis

solve :: Int -> Int -> String
solve deg dis = let w = dis2w dis
                    dir = if w == 0 then "C" else deg2dir deg
                in dir ++ " " ++ show (w)

deg2dir :: Int -> String
deg2dir deg | deg < 113 = "N"
            | deg < 338 = "NNE"
            | deg < 563 = "NE"
            | deg < 788 = "ENE"
            | deg < 1013 = "E"
            | deg < 1238 = "ESE"
            | deg < 1463 = "SE"
            | deg < 1688 = "SSE"
            | deg < 1913 = "S"
            | deg < 2138 = "SSW"
            | deg < 2363 = "SW"
            | deg < 2588 = "WSW"
            | deg < 2813 = "W"
            | deg < 3038 = "WNW"
            | deg < 3263 = "NW"
            | deg < 3488 = "NNW"
            | otherwise = "N"

dis2w :: Int -> Int
dis2w dis = let ws = fromIntegral dis / 60
            in if ws >= 0 && ws < 0.25 then 0 else
               if ws < 1.55 then 1 else
               if ws < 3.35 then 2 else
               if ws < 5.45 then 3 else
               if ws < 7.95 then 4 else
               if ws < 10.75 then 5 else
               if ws < 13.85 then 6 else
               if ws < 17.15 then 7 else
               if ws < 20.75 then 8 else
               if ws < 24.45 then 9 else
               if ws < 28.45 then 10 else
               if ws < 32.65 then 11 else
               12
               

Submission Info

Judge Result