Submission #183414

Source Code Expand

import Control.Applicative

main :: IO ()
main = do
  xs <- getInts
  ys <- getInts
  print $ sum [max x y | (x,y) <- zip xs ys]

getInts :: IO [Int]
getInts = map read . words <$> getLine

Submission Info

Submission Time
Task A - ゴールドラッシュ
User fujidig
Language Haskell (GHC 7.4.1)
Score 100
Code Size 197 Byte
Status AC
Exec Time 338 ms
Memory 1556 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 19
Set Name Test Cases
Sample subtask0_sample-01.txt, subtask0_sample-02.txt, subtask0_sample-03.txt, subtask0_sample-04.txt
All subtask0_sample-01.txt, subtask0_sample-02.txt, subtask0_sample-03.txt, subtask0_sample-04.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt
Case Name Status Exec Time Memory
subtask0_sample-01.txt AC 338 ms 1440 KB
subtask0_sample-02.txt AC 36 ms 1436 KB
subtask0_sample-03.txt AC 29 ms 1368 KB
subtask0_sample-04.txt AC 27 ms 1436 KB
subtask1_01.txt AC 26 ms 1436 KB
subtask1_02.txt AC 25 ms 1372 KB
subtask1_03.txt AC 26 ms 1432 KB
subtask1_04.txt AC 27 ms 1436 KB
subtask1_05.txt AC 27 ms 1368 KB
subtask1_06.txt AC 26 ms 1436 KB
subtask1_07.txt AC 26 ms 1436 KB
subtask1_08.txt AC 26 ms 1556 KB
subtask1_09.txt AC 29 ms 1524 KB
subtask1_10.txt AC 30 ms 1372 KB
subtask1_11.txt AC 29 ms 1456 KB
subtask1_12.txt AC 25 ms 1552 KB
subtask1_13.txt AC 30 ms 1432 KB
subtask1_14.txt AC 26 ms 1432 KB
subtask1_15.txt AC 26 ms 1428 KB