提出 #122271


ソースコード 拡げる

Copy
main :: IO ()
main = do n <- getLine
          print $ salary $ read n where
              salary :: Float -> Float
              salary n = sum (map (/n) [10000,20000..10000*n])

提出情報

提出日時
問題 A - AtCoder社の給料
ユーザ orumin
言語 Haskell (GHC 7.4.1)
得点 100
コード長 182 Byte
結果 AC
実行時間 78 ms
メモリ 1448 KB

ジャッジ結果

セット名 All
得点 / 配点 100 / 100
結果
AC × 14
セット名 テストケース
All 00_sample_01.txt, 00_sample_02.txt, test_100.txt, test_14.txt, test_29.txt, test_4.txt, test_42.txt, test_48.txt, test_54.txt, test_59.txt, test_71.txt, test_72.txt, test_84.txt, test_96.txt
ケース名 結果 実行時間 メモリ
00_sample_01.txt AC 78 ms 1448 KB
00_sample_02.txt AC 27 ms 1444 KB
test_100.txt AC 29 ms 1436 KB
test_14.txt AC 27 ms 1440 KB
test_29.txt AC 27 ms 1440 KB
test_4.txt AC 27 ms 1440 KB
test_42.txt AC 29 ms 1440 KB
test_48.txt AC 27 ms 1436 KB
test_54.txt AC 27 ms 1440 KB
test_59.txt AC 27 ms 1440 KB
test_71.txt AC 28 ms 1436 KB
test_72.txt AC 35 ms 1436 KB
test_84.txt AC 34 ms 1440 KB
test_96.txt AC 27 ms 1440 KB