提出 #18468

ソースコード 拡げる

main :: IO ()
main = do
  (n:xs:_) <- getContents >>= return . lines
  putStrLn $ show $ (sum $ map score xs) / (read n)
  where
    score 'A' = 4
    score 'B' = 3
    score 'C' = 2
    score 'D' = 1
    score 'F' = 0
    score _ = undefined

提出情報

提出日時
問題 A - GPA計算
ユーザ seagull_kamome
言語 Haskell (GHC 7.4.1)
得点 100
コード長 252 Byte
結果 AC
実行時間 57 ms
メモリ 1560 KiB

ジャッジ結果

セット名 all
得点 / 配点 100 / 100
結果
AC × 32
セット名 テストケース
all 00_sample_01.txt, 00_sample_02.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 01_rnd_10.txt, 02_rndmax_01.txt, 02_rndmax_02.txt, 02_rndmax_03.txt, 02_rndmax_04.txt, 02_rndmax_05.txt, 02_rndmax_06.txt, 02_rndmax_07.txt, 02_rndmax_08.txt, 02_rndmax_09.txt, 02_rndmax_10.txt, 03_mini_01.txt, 03_mini_02.txt, 03_mini_03.txt, 03_mini_04.txt, 03_mini_05.txt, 04_samemax_01.txt, 04_samemax_02.txt, 04_samemax_03.txt, 04_samemax_04.txt, 04_samemax_05.txt
ケース名 結果 実行時間 メモリ
00_sample_01.txt AC 57 ms 1456 KiB
00_sample_02.txt AC 44 ms 1204 KiB
01_rnd_01.txt AC 26 ms 1464 KiB
01_rnd_02.txt AC 25 ms 1400 KiB
01_rnd_03.txt AC 26 ms 1468 KiB
01_rnd_04.txt AC 25 ms 1464 KiB
01_rnd_05.txt AC 25 ms 1556 KiB
01_rnd_06.txt AC 26 ms 1464 KiB
01_rnd_07.txt AC 25 ms 1468 KiB
01_rnd_08.txt AC 26 ms 1548 KiB
01_rnd_09.txt AC 26 ms 1456 KiB
01_rnd_10.txt AC 24 ms 1552 KiB
02_rndmax_01.txt AC 25 ms 1560 KiB
02_rndmax_02.txt AC 26 ms 1532 KiB
02_rndmax_03.txt AC 47 ms 1524 KiB
02_rndmax_04.txt AC 25 ms 1528 KiB
02_rndmax_05.txt AC 25 ms 1552 KiB
02_rndmax_06.txt AC 26 ms 1456 KiB
02_rndmax_07.txt AC 26 ms 1460 KiB
02_rndmax_08.txt AC 25 ms 1464 KiB
02_rndmax_09.txt AC 26 ms 1480 KiB
02_rndmax_10.txt AC 25 ms 1460 KiB
03_mini_01.txt AC 25 ms 1464 KiB
03_mini_02.txt AC 24 ms 1464 KiB
03_mini_03.txt AC 24 ms 1556 KiB
03_mini_04.txt AC 30 ms 1464 KiB
03_mini_05.txt AC 27 ms 1240 KiB
04_samemax_01.txt AC 24 ms 1552 KiB
04_samemax_02.txt AC 27 ms 1464 KiB
04_samemax_03.txt AC 26 ms 1456 KiB
04_samemax_04.txt AC 24 ms 1552 KiB
04_samemax_05.txt AC 24 ms 1340 KiB