AtCoder Beginner Contest 001

Submission #161261

Source codeソースコード

import           Control.Applicative
import           Text.Printf

main :: IO ()
main = do
  [deg, dis] <- map read . words <$> getLine

  let dir | w == 0 = "C"
          | otherwise = words "N NNE NE ENE E ESE SE SSE S SSW SW WSW W WNW NW NNW N" !! ((deg * 10 + 1125) `div` 2250)

      mps = floor (fromIntegral dis * 10 / 60 + 0.5 :: Double) :: Int

      w | mps <= 2 = 0
        | mps <= 15 = 1
        | mps <= 33 = 2
        | mps <= 54 = 3
        | mps <= 79 = 4
        | mps <= 107 = 5
        | mps <= 138 = 6
        | mps <= 171 = 7
        | mps <= 207 = 8
        | mps <= 244 = 9
        | mps <= 284 = 10
        | mps <= 326 = 11
        | otherwise = 12

  printf "%s %d\n" dir (w :: Int) where

Submission

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

Test case

Set

Set name Score得点 / Max score Cases
all 100 / 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 287 ms 1712 KB
00_sample_02.txt AC 35 ms 1712 KB
00_sample_03.txt AC 36 ms 1704 KB
00_sample_04.txt AC 37 ms 1708 KB
00_sample_05.txt AC 37 ms 1712 KB
00_sample_06.txt AC 38 ms 1572 KB
00_sample_07.txt AC 36 ms 1644 KB
00_sample_08.txt AC 36 ms 1704 KB
test_01.txt AC 37 ms 1708 KB
test_02.txt AC 38 ms 1572 KB
test_03.txt AC 37 ms 1712 KB
test_04.txt AC 36 ms 1708 KB
test_05.txt AC 37 ms 1712 KB
test_06.txt AC 37 ms 1704 KB
test_07.txt AC 36 ms 1708 KB
test_08.txt AC 37 ms 1708 KB
test_09.txt AC 36 ms 1708 KB
test_10.txt AC 40 ms 1704 KB
test_11.txt AC 36 ms 1716 KB
test_12.txt AC 37 ms 1712 KB
test_13.txt AC 36 ms 1708 KB
test_14.txt AC 35 ms 1584 KB
test_15.txt AC 36 ms 1708 KB
test_16.txt AC 38 ms 1708 KB
test_17.txt AC 36 ms 1704 KB
test_18.txt AC 38 ms 1696 KB
test_19.txt AC 40 ms 1708 KB
test_20.txt AC 39 ms 1700 KB
test_21.txt AC 37 ms 1712 KB
test_22.txt AC 37 ms 1708 KB
test_23.txt AC 37 ms 1712 KB
test_24.txt AC 39 ms 1708 KB
test_25.txt AC 38 ms 1704 KB
test_26.txt AC 37 ms 1704 KB
test_27.txt AC 36 ms 1704 KB
test_28.txt AC 35 ms 1708 KB
test_29.txt AC 37 ms 1708 KB
test_30.txt AC 37 ms 1708 KB
test_31.txt AC 37 ms 1712 KB
test_32.txt AC 38 ms 1712 KB
test_33.txt AC 37 ms 1704 KB
test_34.txt AC 38 ms 1704 KB
test_35.txt AC 38 ms 1704 KB
test_36.txt AC 38 ms 1708 KB
test_37.txt AC 38 ms 1712 KB
test_38.txt AC 37 ms 1708 KB
test_39.txt AC 36 ms 1704 KB
test_40.txt AC 38 ms 1704 KB
test_41.txt AC 37 ms 1704 KB
test_42.txt AC 37 ms 1584 KB
test_43.txt AC 37 ms 1704 KB
test_44.txt AC 38 ms 1704 KB
test_45.txt AC 36 ms 1708 KB
test_46.txt AC 36 ms 1708 KB
test_47.txt AC 37 ms 1704 KB
test_48.txt AC 37 ms 1704 KB
test_49.txt AC 36 ms 1712 KB
test_50.txt AC 36 ms 1700 KB
test_51.txt AC 37 ms 1716 KB
test_52.txt AC 36 ms 1708 KB
test_53.txt AC 38 ms 1712 KB
test_54.txt AC 39 ms 1708 KB
test_55.txt AC 38 ms 1712 KB
test_56.txt AC 36 ms 1700 KB
test_57.txt AC 37 ms 1704 KB
test_58.txt AC 37 ms 1712 KB