AtCoder Beginner Contest 001

Submission #288242

Source codeソースコード

import Control.Applicative


main :: IO ()
main = do
    [deg, dis] <- words <$> getLine
    let f = (force . speed . 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)


speed :: Double -> Double
speed dis = dis / 60


force :: Double -> Int
force s
  | rounded <=  0.2 =  0
  | rounded <=  1.5 =  1
  | rounded <=  3.3 =  2
  | rounded <=  5.4 =  3
  | rounded <=  7.9 =  4
  | rounded <= 10.7 =  5
  | rounded <= 13.8 =  6
  | rounded <= 17.1 =  7
  | rounded <= 20.7 =  8
  | rounded <= 24.4 =  9
  | rounded <= 28.4 = 10
  | rounded <= 32.6 = 11
  | otherwise       = 12

  where
    rounded = ((realToFrac . truncate) $ s * 10 + 0.5) / 10

Submission

Task問題 C - 風力観測
User nameユーザ名 ふじやん
Created time投稿日時
Language言語 Haskell (GHC 7.4.1)
Status状態 WA
Score得点 0
Source lengthソースコード長 1071 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 37 ms 1616 KB
00_sample_02.txt WA
00_sample_03.txt AC 33 ms 1616 KB
00_sample_04.txt AC 34 ms 1616 KB
00_sample_05.txt AC 33 ms 1608 KB
00_sample_06.txt AC 33 ms 1616 KB
00_sample_07.txt AC 34 ms 1616 KB
00_sample_08.txt AC 35 ms 1616 KB
test_01.txt AC 32 ms 1492 KB
test_02.txt AC 32 ms 1612 KB
test_03.txt AC 34 ms 1524 KB
test_04.txt AC 35 ms 1620 KB
test_05.txt AC 34 ms 1532 KB
test_06.txt AC 35 ms 1556 KB
test_07.txt AC 33 ms 1620 KB
test_08.txt AC 32 ms 1620 KB
test_09.txt AC 34 ms 1592 KB
test_10.txt AC 33 ms 1616 KB
test_11.txt AC 35 ms 1612 KB
test_12.txt AC 32 ms 1680 KB
test_13.txt WA
test_14.txt AC 33 ms 1580 KB
test_15.txt AC 34 ms 1588 KB
test_16.txt AC 34 ms 1528 KB
test_17.txt AC 34 ms 1620 KB
test_18.txt AC 34 ms 1616 KB
test_19.txt AC 32 ms 1608 KB
test_20.txt AC 33 ms 1616 KB
test_21.txt AC 33 ms 1612 KB
test_22.txt AC 32 ms 1532 KB
test_23.txt AC 32 ms 1616 KB
test_24.txt AC 33 ms 1616 KB
test_25.txt WA
test_26.txt AC 32 ms 1616 KB
test_27.txt AC 32 ms 1620 KB
test_28.txt AC 32 ms 1592 KB
test_29.txt AC 34 ms 1584 KB
test_30.txt AC 32 ms 1620 KB
test_31.txt AC 35 ms 1476 KB
test_32.txt AC 33 ms 1460 KB
test_33.txt AC 35 ms 1528 KB
test_34.txt AC 34 ms 1572 KB
test_35.txt AC 33 ms 1516 KB
test_36.txt AC 33 ms 1612 KB
test_37.txt AC 33 ms 1616 KB
test_38.txt AC 33 ms 1528 KB
test_39.txt AC 32 ms 1612 KB
test_40.txt AC 33 ms 1620 KB
test_41.txt AC 32 ms 1528 KB
test_42.txt AC 32 ms 1536 KB
test_43.txt AC 33 ms 1608 KB
test_44.txt AC 33 ms 1572 KB
test_45.txt AC 33 ms 1604 KB
test_46.txt AC 33 ms 1608 KB
test_47.txt AC 34 ms 1612 KB
test_48.txt AC 31 ms 1484 KB
test_49.txt AC 35 ms 1528 KB
test_50.txt AC 34 ms 1608 KB
test_51.txt AC 34 ms 1540 KB
test_52.txt AC 33 ms 1608 KB
test_53.txt AC 32 ms 1612 KB
test_54.txt AC 32 ms 1608 KB
test_55.txt AC 32 ms 1472 KB
test_56.txt AC 34 ms 1660 KB
test_57.txt AC 33 ms 1608 KB
test_58.txt AC 40 ms 1476 KB