Submission #108354

---

Source Code Expand

import Control.Applicative

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

main :: IO ()
main = do
	[deg, dis] <- map read . words <$> getLine

	let
		w   = getW dis
		dir = if w == 0 then "C" else show $ getDir deg

	putStrLn $ unwords [dir, show w]

getDir :: Int -> Dir
getDir deg
	| deg >=  113 && deg <  338 = NNE
	| deg >=  338 && deg <  563 = NE
	| deg >=  563 && deg <  788 = ENE
	| deg >=  788 && deg < 1013 = E
	| deg >= 1013 && deg < 1238 = ESE
	| deg >= 1238 && deg < 1463 = SE
	| deg >= 1463 && deg < 1688 = SSE

	| deg >= 1688 && deg < 1913 = S
	| deg >= 1913 && deg < 2138 = SSW
	| deg >= 2138 && deg < 2363 = SW
	| deg >= 2363 && deg < 2588 = WSW
	| deg >= 2588 && deg < 2813 = W
	| deg >= 2813 && deg < 3038 = WNW
	| deg >= 3038 && deg < 3263 = NW
	| deg >= 3263 && deg < 3488 = NNW

	| otherwise                 = N

getW :: Int -> Int
getW dis
	| v >=   0 && v <=   2 =  0
	| v >=   3 && v <=  15 =  1
	| v >=  16 && v <=  33 =  2
	| v >=  34 && v <=  54 =  3
	| v >=  55 && v <=  79 =  4
	| v >=  80 && v <= 107 =  5
	| v >= 108 && v <= 138 =  6
	| v >= 139 && v <= 171 =  7
	| v >= 172 && v <= 207 =  8
	| v >= 208 && v <= 244 =  9
	| v >= 245 && v <= 284 = 10
	| v >= 285 && v <= 326 = 11
	| v >= 327             = 12
	where
		v = round' . (* 10) $ fromIntegral dis / 60

round' :: Double -> Int
round' x
	| d1 >= '5' = (+1) . read . takeWhile (/= '.') $ xStr
	| otherwise =        read . takeWhile (/= '.') $ xStr
	where
		xStr = show x
		d1   = (\xs -> if null xs then '0' else head xs) . tail . dropWhile (/= '.') $ xStr

Submission Info

Judge Result