Submission #1478958

Source Code Expand

import qualified Data.ByteString.Char8 as B
import Data.List

main = do
  n <- readLn
  as <- map (maybe undefined fst . B.readInteger) . B.words <$> B.getLine
  print (agc n as)

agc n = sum . take n . drop n . sort

Submission Info

Submission Time
Task A - AtCoder Group Contest
User aimy
Language Haskell (GHC 7.10.3)
Score 0
Code Size 224 Byte
Status WA
Exec Time 605 ms
Memory 51580 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 300
Status
AC × 2
AC × 4
WA × 8
Set Name Test Cases
Sample 00_example_01.txt, 00_example_02.txt
All 00_example_01.txt, 00_example_02.txt, 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt
Case Name Status Exec Time Memory
00_example_01.txt AC 1 ms 508 KB
00_example_02.txt AC 1 ms 508 KB
01.txt WA 1 ms 508 KB
02.txt WA 1 ms 508 KB
03.txt WA 1 ms 508 KB
04.txt WA 1 ms 508 KB
05.txt WA 22 ms 4348 KB
06.txt AC 104 ms 29052 KB
07.txt AC 68 ms 25980 KB
08.txt WA 605 ms 51580 KB
09.txt WA 605 ms 51580 KB
10.txt WA 605 ms 51580 KB