Submission #288251

---

Source Code Expand

import Control.Applicative


main :: IO ()
main = do
    [deg, dis] <- words <$> getLine
    let f = (force . speed . read) dis
        d = case f of
                0         -> "C"
                otherwise -> (direction . read) deg
    putStrLn $ d ++ " " ++ (show f)


direction :: Int -> String
direction deg =
    [ "N"
    , "NNE"
    , "NE"
    , "ENE"
    , "E"
    , "ESE"
    , "SE"
    , "SSE"
    , "S"
    , "SSW"
    , "SW"
    , "WSW"
    , "W"
    , "WNW"
    , "NW"
    , "NNW"
    , "N"]
    !! ((deg + 112) `div` 225)


speed :: Double -> Double
speed dis = dis / 60


force :: Double -> Int
force s
  | rounded <=  0.2 =  0
  | rounded <=  1.5 =  1
  | rounded <=  3.3 =  2
  | rounded <=  5.4 =  3
  | rounded <=  7.9 =  4
  | rounded <= 10.7 =  5
  | rounded <= 13.8 =  6
  | rounded <= 17.1 =  7
  | rounded <= 20.7 =  8
  | rounded <= 24.4 =  9
  | rounded <= 28.4 = 10
  | rounded <= 32.6 = 11
  | otherwise       = 12

  where
    rounded = ((realToFrac . truncate) $ s * 10 + 0.5) / 10

Submission Info

Judge Result