AtCoder Beginner Contest 001

Submission #288249

Source codeソースコード

import Control.Applicative


main :: IO ()
main = do
    [deg, dis] <- words <$> getLine
    let f = (force . read) dis
        d = case f of
                0         -> "c"
                otherwise -> (direction . read) deg
    putStrLn $ d ++ " " ++ (show f)


direction :: Int -> String
direction deg =
    [ "N"
    , "NNE"
    , "NE"
    , "ENE"
    , "E"
    , "ESE"
    , "SE"
    , "SSE"
    , "S"
    , "SSW"
    , "SW"
    , "WSW"
    , "W"
    , "WNW"
    , "NW"
    , "NNW"
    , "N"]
    !! ((deg + 112) `div` 225)


force :: Int -> Int
force dis
  | rounded <=   2 =  0
  | rounded <=  15 =  1
  | rounded <=  33 =  2
  | rounded <=  54 =  3
  | rounded <=  79 =  4
  | rounded <= 107 =  5
  | rounded <= 138 =  6
  | rounded <= 171 =  7
  | rounded <= 207 =  8
  | rounded <= 244 =  9
  | rounded <= 284 = 10
  | rounded <= 326 = 11
  | otherwise       = 12

  where
    rounded = truncate $ (realToFrac (dis * 10) / 60) + 0.5

Submission

Task問題 C - 風力観測
User nameユーザ名 ふじやん
Created time投稿日時
Language言語 Haskell (GHC 7.4.1)
Status状態 WA
Score得点 0
Source lengthソースコード長 997 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 89 ms 1512 KB
00_sample_02.txt WA
00_sample_03.txt AC 32 ms 1448 KB
00_sample_04.txt AC 31 ms 1512 KB
00_sample_05.txt AC 30 ms 1432 KB
00_sample_06.txt AC 30 ms 1372 KB
00_sample_07.txt AC 28 ms 1428 KB
00_sample_08.txt AC 31 ms 1380 KB
test_01.txt AC 29 ms 1504 KB
test_02.txt AC 29 ms 1488 KB
test_03.txt AC 29 ms 1368 KB
test_04.txt AC 29 ms 1428 KB
test_05.txt AC 30 ms 1440 KB
test_06.txt AC 30 ms 1428 KB
test_07.txt AC 29 ms 1436 KB
test_08.txt AC 29 ms 1424 KB
test_09.txt AC 29 ms 1548 KB
test_10.txt AC 28 ms 1560 KB
test_11.txt AC 28 ms 1424 KB
test_12.txt AC 28 ms 1432 KB
test_13.txt WA
test_14.txt AC 30 ms 1380 KB
test_15.txt AC 31 ms 1480 KB
test_16.txt AC 29 ms 1428 KB
test_17.txt AC 29 ms 1488 KB
test_18.txt AC 29 ms 1428 KB
test_19.txt AC 28 ms 1540 KB
test_20.txt AC 32 ms 1376 KB
test_21.txt AC 29 ms 1428 KB
test_22.txt AC 29 ms 1492 KB
test_23.txt AC 30 ms 1480 KB
test_24.txt AC 31 ms 1444 KB
test_25.txt WA
test_26.txt AC 30 ms 1440 KB
test_27.txt AC 29 ms 1428 KB
test_28.txt AC 29 ms 1472 KB
test_29.txt AC 30 ms 1508 KB
test_30.txt AC 29 ms 1428 KB
test_31.txt AC 30 ms 1444 KB
test_32.txt AC 30 ms 1432 KB
test_33.txt AC 31 ms 1508 KB
test_34.txt AC 30 ms 1484 KB
test_35.txt AC 31 ms 1380 KB
test_36.txt AC 32 ms 1452 KB
test_37.txt AC 29 ms 1428 KB
test_38.txt AC 29 ms 1428 KB
test_39.txt AC 29 ms 1392 KB
test_40.txt AC 28 ms 1428 KB
test_41.txt AC 29 ms 1516 KB
test_42.txt AC 34 ms 1488 KB
test_43.txt AC 30 ms 1484 KB
test_44.txt AC 29 ms 1552 KB
test_45.txt AC 30 ms 1424 KB
test_46.txt AC 31 ms 1380 KB
test_47.txt AC 28 ms 1428 KB
test_48.txt AC 29 ms 1428 KB
test_49.txt AC 31 ms 1376 KB
test_50.txt AC 33 ms 1376 KB
test_51.txt AC 32 ms 1504 KB
test_52.txt AC 30 ms 1420 KB
test_53.txt AC 29 ms 1428 KB
test_54.txt AC 29 ms 1424 KB
test_55.txt AC 29 ms 1424 KB
test_56.txt AC 30 ms 1428 KB
test_57.txt AC 30 ms 1500 KB
test_58.txt AC 30 ms 1508 KB