Submission #1194592


Source Code Expand

Copy
$N=<>;
@_=sort{$b-$a}glob<>;
$%+=$_[2*$_-1]for 1..$N;
print$%,$/

Submission Info

Submission Time
Task A - AtCoder Group Contest
User x20
Language Perl (v5.18.2)
Score 300
Code Size 69 Byte
Status
Exec Time 1001 ms
Memory 89084 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 300 / 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 59 ms 6124 KB
06.txt 408 ms 89084 KB
07.txt 367 ms 86524 KB
08.txt 984 ms 87640 KB
09.txt 984 ms 87640 KB
10.txt 1001 ms 87640 KB