Submission #308763

---

Source Code Expand

import Control.Applicative

main = do
  vs <- words <$> getLine
  let deg = read $ vs !! 0
  let dis = read $ vs !! 1
  let h = houi deg
  let f = furyoku (dis / 6.0)
  if f == 0 then putStr "C" else putStr h
  putStr " "
  print f

houi :: Double -> String
houi d
  | d >= 112.5 && d < 337.5   = "NNE"
  | d >= 337.5 && d < 562.5   = "NE"
  | d >= 562.5 && d < 787.5   = "ENE"
  | d >= 787.5 && d < 1012.5  = "E"
  | d >= 1012.5 && d < 1237.5 = "ESE"
  | d >= 1237.5 && d < 1462.5 = "SE"
  | d >= 1462.5 && d < 1687.5 = "SSE"
  | d >= 1687.5 && d < 1912.5 = "S"
  | d >= 1912.5 && d < 2137.5 = "SSW"
  | d >= 2137.5 && d < 2362.5 = "SW"
  | d >= 2362.5 && d < 2587.5 = "WSW"
  | d >= 2587.5 && d < 2812.5 = "W"
  | d >= 2812.5 && d < 3037.5 = "WNW"
  | d >= 3037.5 && d < 3262.5 = "NW"
  | d >= 3262.5 && d < 3487.5 = "NNW"
  | otherwise                 = "N"

furyoku :: Double -> Int
furyoku r
  | f <= 2 = 0
  | f <= 15 = 1
  | f <= 33 = 2
  | f <= 54 = 3
  | f <= 79 = 4
  | f <= 107 = 5
  | f <= 138 = 6
  | f <= 171 = 7
  | f <= 207 = 8
  | f <= 244 = 9
  | f <= 284 = 10
  | f <= 326 = 11
  | otherwise = 12
  where f = myround r

myround f
  | b >= 0.5 = a + 1
  | otherwise = a
  where (a, b) = properFraction f

Submission Info

Judge Result