Submission #108446

---

Source Code Expand

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Char
import Data.Maybe
import Text.Printf

main = do
	[ deg, dis ] <- map read . words <$> getLine
	putStrLn $ ( if dis / 60 < 0.2 then "C" else solveDeg deg ) ++ " " ++ solveDis dis

solveDeg d = let res = find ( uncurry (&&) . ( ( <= d * 10 ) *** ( d * 10 < ) ) . fst ) $ table
	in if res == Nothing then "N" else snd $ fromJust res
	where
		digs = [ ( 1125 + i * 1125, 3375 + i * 1125 ) | i <- [ 0, 2 .. ] ] 
		names = [ "NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", "S", "SSW", "SW", "WSW", "W", "WNW", "NW", "NNW" ]
		table = zip digs names

solveDis d = show . snd . fromJust . find ( ( <= fu d ) . fst ) $ table
	where
		fu = ( / 10 ) . fromIntegral . round . ( + 0.000001 ) . ( * 10 ) . ( / 60 )
		diss = [ 32.7, 28.5, 24.5, 20.8, 17.2, 13.9, 10.8, 8.0, 5.5, 3.4, 1.6, 0.3, 0.0 ]
		table = zip diss [ 12, 11 .. ]

Submission Info

Judge Result