Submission #1210528

---

Source Code Expand

wid w
  | w < 0.25 = 0
  | w < 1.55 = 1
  | w < 3.35 = 2
  | w < 5.45 = 3
  | w < 7.95 = 4
  | w < 10.75 = 5
  | w < 13.85 = 6
  | w < 17.15 = 7
  | w < 20.75 = 8
  | w < 24.45 = 9
  | w < 28.45 = 10
  | w < 32.65 = 11
  | otherwise = 12


dir d w
  | w == 0 = "C"
  | d < 112.5 = "N"
  | d < 337.5 = "NNE"
  | d < 562.5 = "NE"
  | d < 787.5 = "ENE"
  | d < 1012.5 = "E"
  | d < 1237.5 = "ESE"
  | d < 1462.5 = "SE"
  | d < 1687.5 = "SSE"
  | d < 1912.5 = "S"
  | d < 2137.5 = "SSW"
  | d < 2362.5 = "SW"
  | d < 2587.5 = "WSW"
  | d < 2812.5 = "W"
  | d < 3037.5 = "WNW"
  | d < 3262.5 = "NW"
  | d < 3487.5 = "NNW"
  | otherwise = "N"



main :: IO ()
main = do
  [d,w] <- map read . words <$> getLine
  let wi = wid (w/60) in
    putStrLn $ dir d wi ++ " " ++ show wi

Submission Info

Judge Result