Submission #431026

---

Source Code Expand

{-# -Wall -Werror #-}

import Control.Applicative

calcDirection :: Double -> String
calcDirection deg
			| deg < 112.5 || 3487.5 <= deg = "N"
			| otherwise = direction !! (head [ x | x<-[0..14], 225.0 * ((realToFrac x)::Double) +112.5 <= deg , deg < 225.0 * ((realToFrac (x+1))::Double) + 112.5 ])
	where
		direction = [
					"NNE","NE","ENE","E","ESE","SE","SSE","S"
					,"SSW","SW","WSW","W","WNW","NW","NNW","N"
					]

calcWindscale :: Double -> String
calcWindscale dis
	| 0 <= dis' && dis' <= 2 = "0"
	| 3 <= dis' && dis' <= 15 = "1"
	| 16 <= dis' && dis' <= 33 = "2"
	| 34 <= dis' && dis' <= 54 = "3"
	| 55 <= dis' && dis' <= 79 = "4"
	| 80 <= dis' && dis' <= 107 = "5"
	| 108 <= dis' && dis' <= 138 = "6"
	| 139 <= dis' && dis' <= 171 = "7"
	| 172 <= dis' && dis' <= 207 = "8"
	| 208 <= dis' && dis' <= 244 = "9"
	| 245 <= dis' && dis' <= 284 = "10"
	| 285 <= dis' && dis' <= 326 = "11"
	| 327 <= dis' = "12"
	where
		dis' = floor $ ((realToFrac dis::Double) / 60.0 * 10.0)+0.5

calcWindscaleAndDirection :: String -> String -> String
calcWindscaleAndDirection _ "0" = "C 0"
calcWindscaleAndDirection deg dis = deg ++ " " ++ dis


main :: IO ()
main = do
	--0 <= deg <= 3,600
	--0 <= dis <= 12,000
	[deg, dis] <- map (read::String->Double) . words <$> getLine

	putStrLn $ calcWindscaleAndDirection (calcDirection deg) (calcWindscale dis)

Submission Info

Compile Error

Main.hs:1:1: Unrecognised pragma

Judge Result