Submission #108655

---

Source Code Expand

main = do x'<-getLine
          let [deg, dis] = map (read::String->Double) $ words x'
          let w = way dis
          let d = dir deg w
          putStrLn $ d ++ " " ++ ((show::Int->String) w)

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

way::Double->Int
way x | v < 0.3 = 0
      | v < 1.6 = 1
      | v < 3.4 = 2
      | v < 5.5 = 3
      | v < 8.0 = 4
      | v < 10.8 = 5
      | v < 13.9 = 6
      | v < 17.2 = 7
      | v < 20.8 = 8
      | v < 24.5 = 9
      | v < 28.5 = 10
      | v < 32.7 = 11
      | otherwise = 12
      where v = x / 60 + 0.05

Submission Info

Judge Result