Submission #3050982

---

Source Code Expand

{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import qualified Data.ByteString.Char8 as B
import Text.Printf

import Data.Ratio

readInt = ( readLn :: IO Int )
readInts = map ( read :: String -> Int ) . words <$> getLine

getList = map ( fst . fromJust . B.readInt ) . B.words <$> B.getLine

which a b f = if f then a else b
mp [ a, b ] = ( a, b )

main = readInts >>= uncurry ( printf "%s %d\n" ) . format . ( degree *** speed ) . mp

degree = fromMaybe "N" . fmap ( names !! ) . flip findIndex degrees . ( < ) . ( * 10 )
	where
		degrees = take 16 $ iterate ( ( 1125 * 2 ) + ) 1125
		names = [ "N", "NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", "S", "SSW", "SW", "WSW", "W", "WNW", "NW", "NNW" ] 

speed = fromMaybe 12 . flip findIndex scales . ( <= ) . round . ( + ( 1 % 1000000000 ) ). ( * 10 ) . ( / 60 ) . toRational
	where
		scales = [ 2, 15, 33, 54, 79, 107, 138, 171, 207, 244, 284, 326 ]

format ( _, 0 ) = ( "C", 0 )
format p = p

Submission Info

Compile Error

Main.hs:26:1: Warning: Tab character

Main.hs:27:1: Warning: Tab character

Main.hs:28:1: Warning: Tab character

Main.hs:31:1: Warning: Tab character

Main.hs:32:1: Warning: Tab character

Judge Result