Submission #108134

---

Source Code Expand

getDir :: Int->String
getDir dir
	|x < 1 = "N"
	|x < 3 = "NNE"
	|x < 5 = "NE"
	|x < 7 = "ENE"
	|x < 9 = "E"
	|x < 11 = "ESE"
	|x < 13 = "SE"
	|x < 15 = "SSE"
	|x < 17 = "S"
	|x < 19 = "SSW"
	|x < 21 = "SW"
	|x < 23 = "WSW"
	|x < 25 = "W"
	|x < 27 = "WNW"
	|x < 29 = "NW"
	|x < 31 = "NNW"
	|otherwise = "N"
	where x = dir*10`div`1125
	
getW :: Int->Int
getW d
	| dis <= 24*6 = 0
	| dis <= 154*6 = 1
	| dis <= 334*6 = 2
	| dis <= 544*6 = 3
	| dis <= 794*6 = 4
	| dis <= 1074*6 = 5
	| dis <= 1384*6 = 6
	| dis <= 1714*6 = 7
	| dis <= 2074*6 = 8
	| dis <= 2444*6 = 9
	| dis <= 2844*6 = 10
	| dis <= 3264*6 = 11
	| otherwise = 12
	where dis = d*10

main = do
	line <- getLine
	let deg = getDir(read (head (words line)))
	let dis = getW(read (last (words line)))
	if dis == 0 then putStrLn "C 0"
				else print (deg ++ " " ++ show(dis))

Submission Info

Judge Result