Submission #260266

---

Source Code Expand

data Direction = N
               | NNE
               | NE
               | ENE
               | E
               | ESE
               | SE
               | SSE
               | S
               | SSW
               | SW
               | WSW
               | W
               | WNW
               | NW
               | NNW
               | C
               deriving (Enum, Show)

data WindForce = Rank0
               | Rank1
               | Rank2
               | Rank3
               | Rank4
               | Rank5
               | Rank6
               | Rank7
               | Rank8
               | Rank9
               | Rank10
               | Rank11
               | Rank12
               deriving Show

type Wind = (Direction, WindForce)

main :: IO()
main = getLine >>= putStrLn . solve

solve :: String -> String
solve q = let (deg:dis:_) = words q
              dir = deg2dir (read deg)
              wf = dis2wf (read dis)
          in case wf of
            Rank0 -> format (C, wf)
            _     -> format (dir, wf)

format :: (Direction, WindForce) -> String
format (d, w) = show d ++ " " ++ drop 4 (show w)

deg2dir :: Int -> Direction
deg2dir deg
  | deg > 3487 = N
deg2dir deg = let c = floor(fromIntegral deg / 225 + 0.5)
              in  (iterate succ N) !! c

dis2wf :: Double -> WindForce
dis2wf dis
  | 0   <= d && d <= 2   = Rank0
  | 3   <= d && d <= 15  = Rank1
  | 16  <= d && d <= 33  = Rank2
  | 34  <= d && d <= 54  = Rank3
  | 55  <= d && d <= 79  = Rank4
  | 80  <= d && d <= 107 = Rank5
  | 108 <= d && d <= 138 = Rank6
  | 139 <= d && d <= 171 = Rank7
  | 172 <= d && d <= 207 = Rank8
  | 208 <= d && d <= 244 = Rank9
  | 245 <= d && d <= 284 = Rank10
  | 283 <= d && d <= 326 = Rank11
  | otherwise           = Rank12
  where
    d = roundUpOn5 (dis / 60 * 10)
 
roundUpOn5 :: (RealFrac a, Integral b) => a -> b
roundUpOn5 x =  let (n,r) = properFraction x
                    m     = if r < 0 then n - 1 else n + 1
                in case signum (abs r - 0.5) of
                  -1 -> n
                  0  -> m
                  1  -> m
                  _  -> error "round default defn: Bad value"

Submission Info

Judge Result