Submission #83176


Source Code Expand

Copy
import Data.List

getGPA :: Char -> Int
getGPA rank
       | rank == 'A' = 4
       | rank == 'B' = 3
       | rank == 'C' = 2
       | rank == 'D' = 1
       | rank == 'F' = 0


answer xs = (realToFrac (sum (map getGPA xs))) / (genericLength xs)

main = do 
    getLine
    getLine >>= putStrLn.show.answer

Submission Info

Submission Time
Task A - GPA計算
User yuxxxx
Language Haskell (GHC 7.4.1)
Score 100
Code Size 324 Byte
Status AC
Exec Time 55 ms
Memory 1556 KB

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 32
Set Name Test Cases
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
Case Name Status Exec Time Memory
00_sample_01.txt AC 42 ms 1504 KB
00_sample_02.txt AC 23 ms 1160 KB
01_rnd_01.txt AC 29 ms 1392 KB
01_rnd_02.txt AC 28 ms 1420 KB
01_rnd_03.txt AC 26 ms 1396 KB
01_rnd_04.txt AC 31 ms 1496 KB
01_rnd_05.txt AC 27 ms 1520 KB
01_rnd_06.txt AC 25 ms 1516 KB
01_rnd_07.txt AC 28 ms 1556 KB
01_rnd_08.txt AC 27 ms 1512 KB
01_rnd_09.txt AC 27 ms 1392 KB
01_rnd_10.txt AC 27 ms 1500 KB
02_rndmax_01.txt AC 27 ms 1520 KB
02_rndmax_02.txt AC 27 ms 1520 KB
02_rndmax_03.txt AC 31 ms 1520 KB
02_rndmax_04.txt AC 43 ms 1516 KB
02_rndmax_05.txt AC 27 ms 1524 KB
02_rndmax_06.txt AC 28 ms 1516 KB
02_rndmax_07.txt AC 27 ms 1520 KB
02_rndmax_08.txt AC 28 ms 1516 KB
02_rndmax_09.txt AC 28 ms 1512 KB
02_rndmax_10.txt AC 27 ms 1500 KB
03_mini_01.txt AC 26 ms 1388 KB
03_mini_02.txt AC 26 ms 1416 KB
03_mini_03.txt AC 25 ms 1388 KB
03_mini_04.txt AC 28 ms 1396 KB
03_mini_05.txt AC 24 ms 1164 KB
04_samemax_01.txt AC 27 ms 1520 KB
04_samemax_02.txt AC 28 ms 1520 KB
04_samemax_03.txt AC 30 ms 1408 KB
04_samemax_04.txt AC 55 ms 1492 KB
04_samemax_05.txt AC 25 ms 1132 KB