Submission #367543

---

Source Code Expand

import Text.Printf
import Control.Applicative

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

	printf "%s %d\n" (calcDeg (deg/10.0) (dis/60.0)) $ calcDis (dis/60.0)



calcDeg :: Double -> Double -> String
calcDeg deg dis
	| dis <= 0.2 = "C"
	| 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"


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

Submission Info

Judge Result