Submission #163109

---

Source Code Expand

module Main where

main :: IO ()
main = do
  contents <- getContents
  let     (dir:dis:_) = map readInt $ words contents
  putStrLn $ wind dir dis

wind :: Int -> Int -> String
wind direction distnce | dis distnce == "0"  = "C 0"
                       | otherwise   = deg direction ++ " " ++ dis distnce

deg :: Int -> String
deg d | d <= 112  = "N"
      | d <= 337 = "NNE"
      | d <= 562 = "NE"
      | d <= 787 = "ENE"
      | d <= 1012 = "E"
      | d <= 1237 = "ESE"
      | d <= 1462 = "SE"
      | d <= 1687 = "SSE"
      | d <= 1912 = "S"
      | d <= 2137 = "SSW"
      | d <= 2362 = "SW"
      | d <= 2587 = "WSW"
      | d <= 2812 = "W"
      | d <= 3037 = "WNW"
      | d <= 3262 = "NW"
      | d <= 3487 = "NNW"
      | otherwise = "N"

dis :: Int -> String
dis d | dd <= 24 = "0"
      | dd <= 154 = "1"
      | dd <= 334 = "2"
      | dd <= 544 = "3"
      | dd <= 794 = "4"
      | dd <= 1074 = "5"
      | dd <= 1384 = "6"
      | dd <= 1714 = "7"
      | dd <= 2074 = "8"
      | dd <= 2444 = "9"
      | dd <= 2844 = "10"
      | dd <= 3264 = "11"
      | otherwise = "12"

  where dd =  10 *  d `div` 6

readInt :: String -> Int
readInt = read

Submission Info

Judge Result