Submission #3148695

---

Source Code Expand

import qualified Data.ByteString.Char8 as B

round' :: Double -> Int
round' t
  | n <= -0.5 = m - 1
  | n >= 0.5 = m + 1
  | otherwise = m
  where (m,n) = properFraction t

solve :: Int -> Int -> (String, Int)
solve deg dis = (if w == 0 then "C" else dir, w) where
  w = case round' (10 * fromIntegral dis / 60) of
    x | x <= 2 -> 0
    x | x <= 15 -> 1
    x | x <= 33 -> 2
    x | x <= 54 -> 3
    x | x <= 79 -> 4
    x | x <= 107 -> 5
    x | x <= 138 -> 6
    x | x <= 171 -> 7
    x | x <= 207 -> 8
    x | x <= 244 -> 9
    x | x <= 284 -> 10
    x | x <= 326 -> 11
    _ -> 12
  dir = case deg of
    x | 113 <= x && x < 338 -> "NNE"
    x | 338 <= x && x < 563 -> "NE"
    x | 563 <= x && x < 788 -> "ENE"
    x | 788 <= x && x < 1013 -> "E"
    x | 1013 <= x && x < 1238 -> "ESE"
    x | 1238 <= x && x < 1463 -> "SE"
    x | 1463 <= x && x < 1688 -> "SSE"
    x | 1688 <= x && x < 1913 -> "S"
    x | 1913 <= x && x < 2138 -> "SSW"
    x | 2138 <= x && x < 2363 -> "SW"
    x | 2363 <= x && x < 2588 -> "WSW"
    x | 2588 <= x && x < 2813 -> "W"
    x | 2813 <= x && x < 3038 -> "WNW"
    x | 3038 <= x && x < 3263 -> "NW"
    x | 3263 <= x && x < 3488 -> "NNW"
    _ -> "N"

main = do
  [deg, dis] <- map (fst . (\(Just x) -> x) . B.readInt) . B.words <$> B.getLine
  putStrLn $ (\(x,y) -> x ++ " " ++ show y) $ solve deg dis

Submission Info

Judge Result