Submission #108274

---

Source Code Expand

import Control.Applicative

main :: IO ()
main = do [deg,dis] <- (map read . words) <$> getLine
          putStrLn $ h deg dis
-- |
-- >>> h 2750 628
-- "W 5"
-- >>> h 161 8
-- "C 0"
-- >>> h 3263 15
-- "NNW 1"
-- >>> h 1462 1959
-- "SE 12"
-- >>> h 1687 1029
-- "SSE 8"
-- >>> h 2587 644
-- "WSW 5"
-- >>> h 113 201
-- "NNE 3"
-- >>> h 2048 16
-- "SSW 1"
f :: Int -> String
f x | x >= 113 && x <= 337 = "NNE"
    | x >= 338 && x <= 562 = "NE"
    | x >= 563 && x <= 787 = "ENE"
    | x >= 788 && x <= 1012 = "E"
    | x >= 1013 && x <= 1237 = "ESE"
    | x >= 1238 && x <= 1462 = "SE"
    | x >= 1463 && x <= 1687 = "SSE"
    | x >= 1688 && x <= 1912 = "S"
    | x >= 1913 && x <= 2137 = "SSW"
    | x >= 2138 && x <= 2362 = "SW"
    | x >= 2363 && x <= 2587 = "WSW"
    | x >= 2588 && x <= 2812 = "W"
    | x >= 2813 && x <= 3037 = "WNW"
    | x >= 3038 && x <= 3262 = "NW"
    | x >= 3263 && x <= 3487 = "NNW"
    | otherwise = "N"
g :: Int -> String
g x | x' >= 0 && x' <= 24 = "0"
    | x' >= 25 && x' <= 154 = "1"
    | x' >= 155 && x' <= 334 = "2"
    | x' >= 335 && x' <= 544 = "3"
    | x' >= 545 && x' <= 794 = "4"
    | x' >= 795 && x' <= 1074 = "5"
    | x' >= 1075 && x' <= 1384 = "6"
    | x' >= 1385 && x' <= 1714 = "7"
    | x' >= 1715 && x' <= 2074 = "8"
    | x' >= 2075 && x' <= 2444 = "9"
    | x' >= 2445 && x' <= 2844 = "10"
    | x' >= 2845 && x' <= 3264 = "11"
    | x' >= 3265 = "12"
  where x' = x * 10 `div` 6


h :: Int -> Int -> String
h x y = h' (f x) (g y)
  where
    h' _ "0" = "C 0"
    h' dir w = dir ++ " " ++ w

Submission Info

Judge Result