Submission #1194023


Source Code Expand

Copy
$N=<>;print eval(join'+',(sort{$a-$b}glob<>)[$N..2*$N-1]),$/

Submission Info

Submission Time
Task A - AtCoder Group Contest
User x20
Language Perl (v5.18.2)
Score 0
Code Size 60 Byte
Status
Exec Time 1002 ms
Memory 70120 KB

Compile Error

./Main.pl syntax OK

Test Cases

Set Name Score / Max Score Test Cases
Sample 0 / 0 00_example_01.txt, 00_example_02.txt
All 0 / 300 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 5 ms 768 KB
00_example_02.txt 5 ms 768 KB
01.txt 5 ms 768 KB
02.txt 5 ms 768 KB
03.txt 5 ms 768 KB
04.txt 5 ms 768 KB
05.txt 58 ms 4992 KB
06.txt 399 ms 70120 KB
07.txt 357 ms 65640 KB
08.txt 1002 ms 67948 KB
09.txt 975 ms 67948 KB
10.txt 979 ms 67948 KB