AtCoder Beginner Contest 001

Submission #260265

Source codeソースコード

data Direction = N
               | NNE
               | NE
               | ENE
               | E
               | ESE
               | SE
               | SSE
               | S
               | SSW
               | SW
               | WSW
               | W
               | WNW
               | NW
               | NNW
               | C
               deriving (Enum, Show)

data WindForce = Rank0
               | Rank1
               | Rank2
               | Rank3
               | Rank4
               | Rank5
               | Rank6
               | Rank7
               | Rank8
               | Rank9
               | Rank10
               | Rank11
               | Rank12
               deriving Show

type Wind = (Direction, WindForce)

main :: IO()
main = getLine >>= putStrLn . solve

solve :: String -> String
solve q = let (deg:dis:_) = words q
              dir = deg2dir (read deg)
              wf = dis2wf (read dis)
          in case wf of
            Rank0 -> format (C, wf)
            _     -> format (dir, wf)

format :: (Direction, WindForce) -> String
format (d, w) = show d ++ " " ++ drop 4 (show w)

deg2dir :: Int -> Direction
deg2dir deg = let c = floor(fromIntegral deg / 225 + 0.5)
              in  (iterate succ N) !! c

dis2wf :: Double -> WindForce
dis2wf dis
  | 0   <= d && d <= 2   = Rank0
  | 3   <= d && d <= 15  = Rank1
  | 16  <= d && d <= 33  = Rank2
  | 34  <= d && d <= 54  = Rank3
  | 55  <= d && d <= 79  = Rank4
  | 80  <= d && d <= 107 = Rank5
  | 108 <= d && d <= 138 = Rank6
  | 139 <= d && d <= 171 = Rank7
  | 172 <= d && d <= 207 = Rank8
  | 208 <= d && d <= 244 = Rank9
  | 245 <= d && d <= 284 = Rank10
  | 283 <= d && d <= 326 = Rank11
  | otherwise           = Rank12
  where
    d = roundUpOn5 (dis / 60 * 10)
 
roundUpOn5 :: (RealFrac a, Integral b) => a -> b
roundUpOn5 x =  let (n,r) = properFraction x
                    m     = if r < 0 then n - 1 else n + 1
                in case signum (abs r - 0.5) of
                  -1 -> n
                  0  -> m
                  1  -> m
                  _  -> error "round default defn: Bad value"

Submission

Task問題 C - 風力観測
User nameユーザ名 oropon
Created time投稿日時
Language言語 Haskell (GHC 7.4.1)
Status状態 WA
Score得点 0
Source lengthソースコード長 2194 Byte
File nameファイル名
Exec time実行時間 ms
Memory usageメモリ使用量 -

Test case

Set

Set name Score得点 / Max score Cases
all 0 / 100 00_sample_01.txt,00_sample_02.txt,00_sample_03.txt,00_sample_04.txt,00_sample_05.txt,00_sample_06.txt,00_sample_07.txt,00_sample_08.txt,test_01.txt,test_02.txt,test_03.txt,test_04.txt,test_05.txt,test_06.txt,test_07.txt,test_08.txt,test_09.txt,test_10.txt,test_11.txt,test_12.txt,test_13.txt,test_14.txt,test_15.txt,test_16.txt,test_17.txt,test_18.txt,test_19.txt,test_20.txt,test_21.txt,test_22.txt,test_23.txt,test_24.txt,test_25.txt,test_26.txt,test_27.txt,test_28.txt,test_29.txt,test_30.txt,test_31.txt,test_32.txt,test_33.txt,test_34.txt,test_35.txt,test_36.txt,test_37.txt,test_38.txt,test_39.txt,test_40.txt,test_41.txt,test_42.txt,test_43.txt,test_44.txt,test_45.txt,test_46.txt,test_47.txt,test_48.txt,test_49.txt,test_50.txt,test_51.txt,test_52.txt,test_53.txt,test_54.txt,test_55.txt,test_56.txt,test_57.txt,test_58.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
00_sample_01.txt AC 27 ms 1388 KB
00_sample_02.txt AC 28 ms 1296 KB
00_sample_03.txt AC 29 ms 1380 KB
00_sample_04.txt AC 27 ms 1304 KB
00_sample_05.txt AC 27 ms 1380 KB
00_sample_06.txt AC 27 ms 1396 KB
00_sample_07.txt AC 27 ms 1384 KB
00_sample_08.txt AC 27 ms 1304 KB
test_01.txt AC 28 ms 1408 KB
test_02.txt AC 29 ms 1380 KB
test_03.txt AC 27 ms 1308 KB
test_04.txt AC 27 ms 1300 KB
test_05.txt AC 27 ms 1300 KB
test_06.txt AC 27 ms 1304 KB
test_07.txt AC 28 ms 1304 KB
test_08.txt AC 29 ms 1296 KB
test_09.txt AC 28 ms 1304 KB
test_10.txt AC 28 ms 1292 KB
test_11.txt AC 28 ms 1304 KB
test_12.txt AC 28 ms 1308 KB
test_13.txt AC 27 ms 1304 KB
test_14.txt AC 28 ms 1400 KB
test_15.txt AC 29 ms 1444 KB
test_16.txt AC 28 ms 1300 KB
test_17.txt AC 29 ms 1308 KB
test_18.txt AC 30 ms 1424 KB
test_19.txt AC 27 ms 1364 KB
test_20.txt AC 27 ms 1304 KB
test_21.txt AC 28 ms 1300 KB
test_22.txt AC 29 ms 1308 KB
test_23.txt AC 28 ms 1400 KB
test_24.txt AC 27 ms 1300 KB
test_25.txt AC 29 ms 1304 KB
test_26.txt AC 27 ms 1308 KB
test_27.txt AC 27 ms 1388 KB
test_28.txt AC 29 ms 1392 KB
test_29.txt AC 27 ms 1304 KB
test_30.txt AC 29 ms 1440 KB
test_31.txt AC 29 ms 1376 KB
test_32.txt AC 28 ms 1300 KB
test_33.txt AC 29 ms 1304 KB
test_34.txt AC 27 ms 1440 KB
test_35.txt AC 27 ms 1304 KB
test_36.txt AC 27 ms 1300 KB
test_37.txt AC 27 ms 1396 KB
test_38.txt AC 27 ms 1304 KB
test_39.txt AC 27 ms 1304 KB
test_40.txt AC 29 ms 1304 KB
test_41.txt AC 29 ms 1396 KB
test_42.txt AC 29 ms 1400 KB
test_43.txt AC 28 ms 1368 KB
test_44.txt AC 32 ms 1304 KB
test_45.txt AC 31 ms 1304 KB
test_46.txt AC 28 ms 1304 KB
test_47.txt AC 27 ms 1308 KB
test_48.txt AC 28 ms 1448 KB
test_49.txt AC 27 ms 1360 KB
test_50.txt AC 28 ms 1304 KB
test_51.txt AC 27 ms 1300 KB
test_52.txt AC 29 ms 1308 KB
test_53.txt AC 28 ms 1444 KB
test_54.txt AC 29 ms 1308 KB
test_55.txt AC 28 ms 1308 KB
test_56.txt AC 27 ms 1304 KB
test_57.txt AC 27 ms 1308 KB
test_58.txt WA