Submission #108322

---

Source Code Expand

import Control.Applicative
import Control.Monad
import Text.Printf
import Debug.Trace
import qualified Data.ByteString.Char8 as BS
import Data.Array (Array, Ix, array, (!), range, bounds)

degs = [
  (1125,  "N"),
  (3375,  "NNE"),
  (5625,  "NE"),
  (7875,  "ENE"),
  (10125, "E"),
  (12375, "ESE"),
  (14625, "SE"),
  (16875, "SSE"),
  (19125, "S"),
  (21375, "SSW"),
  (23625, "SW"),
  (25875, "WSW"),
  (28125, "W"),
  (30375, "WNW"),
  (32625, "NW"),
  (34875, "NNW"),
  (40000, "N")
  ]

diss = [
  (3,   0),
  (16,  1),
  (34,  2),
  (55,  3),
  (80,  4),
  (108, 5),
  (139, 6),
  (172, 7),
  (208, 8),
  (245, 9),
  (285, 10),
  (327, 11),
  (100000, 12)
  ] :: [(Int, Int)]

find m n = snd . head $ debug "find" $ filter ((n <) . fst) m

main :: IO ()
main = do
  [deg, dis] <- getInts
  let degAns = find degs (debug "deg" (deg * 10))
      disAns = find diss (debug "dis" (((dis * 100) `div` 60 + 5) `div` 10))
  if disAns == 0
    then putStrLn "C 0"
    else printf "%s %d\n" degAns disAns

--
-- TEMPLATE
--
toNumber (Just (x, _)) = x
toNumber Nothing       = 0
getInt = toNumber . BS.readInt <$> BS.getLine
getInts = (map (toNumber . BS.readInt) <$> (BS.words <$> BS.getLine))
getIntegers = (map (toNumber . BS.readInteger) <$> (BS.words <$> BS.getLine))
memorize func rng = let memoArray = array rng [(i, func i) | i <- (range rng)]
                    in (!) memoArray
toA lst = array (0, length lst - 1) $ zip [0..] lst
--debug m a = trace (m ++ ": " ++ show a) a
debug m a = a

Submission Info

Judge Result