Submission #107720

---

Source Code Expand

{-# LANGUAGE MultiParamTypeClasses,FlexibleContexts,FlexibleInstances,TypeSynonymInstances,BangPatterns,RankNTypes #-}

import Control.Monad
import Control.Monad.ST
import Control.Applicative
import Control.Arrow
import Debug.Trace

import Data.List
import Data.Int
import Data.Maybe
import Data.Array.Unboxed
import Data.Array.ST
import qualified Data.Map as M
import qualified Data.Set as S
import qualified Data.ByteString.Char8 as B

import Text.Printf

readInt = B.readInt >>> fmap fst >>> fromMaybe 0
readsInt = map readInt . B.words <$> B.getLine
readLine :: Read a => IO a
readLine = read <$> getLine 
readsLine :: Read a => IO [a]
readsLine = map read . words <$> getLine

cmpFst (a,_) (b,_) = compare a b
cmpSnd (_,a) (_,b) = compare a b
cmpLen a b = length a `compare` length b

swap (a,b) = (b,a)
rect a b = rect2 0 0 a b
rect2 i j a b = ((i,j),(a,b))

itof :: Int -> Double
itof = fromIntegral
casti = fromIntegral

maximize f l = snd $ maximumBy cmpFst [(f x,x) | x <- l]
minimize f l = snd $ minimumBy cmpFst [(f x,x) | x <- l]

infixr 2 <||> 
infixr 3 <&&>
p1 <||> p2 = (p1 &&& p2) >>> uncurry (||)
p1 <&&> p2 = (p1 &&& p2) >>> uncurry (&&)

myround x | abs (x-fromIntegral a) < 0.5 = a
          | otherwise = b
    where
    a = floor x
    b = a+1

main = do
    [deg,dis'] <- readsLine :: IO [Int]
    let dir | 113 <= deg && deg <= 337 = "NNE"
            | 338 <= deg && deg <= 562 = "NE"
            | 563 <= deg && deg <= 787 = "ENE"
            | 788 <= deg && deg <= 1012 = "E"
            | 1013 <= deg && deg <= 1237 = "ESE"
            | 1238 <= deg && deg <= 1462 = "SE"
            | 1463 <= deg && deg <= 1687 = "SSE"
            | 1688 <= deg && deg <= 1912 = "S"
            | 1913 <= deg && deg <= 2137 = "SSW"
            | 2138 <= deg && deg <= 2362 = "SW"
            | 2363 <= deg && deg <= 2587 = "WSW"
            | 2588 <= deg && deg <= 2812 = "W"
            | 2813 <= deg && deg <= 3037 = "WNW"
            | 3038 <= deg && deg <= 3262 = "NW"
            | 3263 <= deg && deg <= 3487 = "NNW"
            | otherwise = "N"
    let dis = myround (((fromIntegral dis' :: Rational) / 60) * 10) 
    let w | dis <= 2 = 0 :: Int
          | dis <= 15 = 1
          | dis <= 33 = 2
          | dis <= 54 = 3
          | dis <= 79 = 4
          | dis <= 107 = 5
          | dis <= 138 = 6
          | dis <= 171 = 7
          | dis <= 207 = 8
          | dis <= 244 = 9
          | dis <= 284 = 10
          | dis <= 326 = 11
          | otherwise = 12
    printf "%s %d\n" (if w == 0 then "C" else dir) w
        

Submission Info

Judge Result