Submission #326469

---

Source Code Expand

main :: IO ()
main = do
    line <- getLine
    let parts = words line
    let deg : dis : _ = fmap read parts :: [Float]
    putStrLn $ windString deg (windStrength dis)

simpleRound :: Float -> Integer
simpleRound = truncate . (+0.5)

roundToSingleDecimal :: Float -> Float
roundToSingleDecimal f = fromInteger (simpleRound (f * 10)) / 10.0

windStrength :: Float -> Int
windStrength w = pegStrength $ roundToSingleDecimal $ w / 60
    where pegStrength s
              | s <= 0.2 = 0
              | s <= 1.5 = 1
              | s <= 3.3 = 2
              | s <= 5.4 = 3
              | s <= 7.9 = 4
              | s <= 10.7 = 5
              | s <= 13.8 = 6
              | s <= 17.1 = 7
              | s <= 20.7 = 8
              | s <= 24.4 = 9
              | s <= 28.4 = 10
              | s <= 32.6 = 11
              | otherwise = 12

windDirection :: Float -> String
windDirection deg
    | deg < 11.25 = "N"
    | deg < 33.75 = "NNE"
    | deg < 56.25 = "NE"
    | deg < 78.75 = "ENE"
    | deg < 101.25 = "E"
    | deg < 123.75 = "ESE"
    | deg < 146.25 = "SE"
    | deg < 168.75 = "SSE"
    | deg < 191.25 = "S"
    | deg < 213.75 = "SSW"
    | deg < 236.25 = "SW"
    | deg < 258.75 = "WSW"
    | deg < 281.25 = "W"
    | deg < 303.75 = "WNW"
    | deg < 326.25 = "NW"
    | deg < 348.75 = "NNW"
    | otherwise = "N"

windString :: Float -> Int -> String
windString deg ws
    | ws == 0 = "C " ++ show ws
    | otherwise = windDirection (deg / 10) ++ " " ++ show ws

Submission Info

Judge Result