Submission #107767

---

Source Code Expand

import Text.Printf
import Control.Applicative

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

g dis = r $ floor $ fromIntegral dis * 100 / 60 where
  r :: Int -> Int
  r v | v `mod` 10 < 5 = v `div` 10
      | otherwise = v `div` 10 + 1

f deg dis = printf "%s %d\n" dir (w :: Int) where
  dir 
    | w == 0 = "C"
    | otherwise = words "N NNE NE ENE E ESE SE SSE S SSW SW WSW W WNW NW NNW N" !! ((deg * 10 + 1125) `div` 2250)

  w | dis <= 2 = 0
    | dis <= 15 = 1
    | dis <= 33 = 2
    | dis <= 54 = 3
    | dis <= 79 = 4
    | dis <= 107 = 5
    | dis <= 138 = 6
    | dis <= 171 = 7
    | dis <= 207 = 8
    | dis <= 244 = 9
    | dis <= 284 = 10
    | dis <= 326 = 11
    | otherwise = 12

Submission Info

Judge Result