Submission #1194592

Source Code Expand

$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 AC
Exec Time 1001 ms
Memory 89084 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 2
AC × 12
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 5 ms 768 KB
00_example_02.txt AC 5 ms 768 KB
01.txt AC 5 ms 768 KB
02.txt AC 5 ms 768 KB
03.txt AC 5 ms 768 KB
04.txt AC 5 ms 768 KB
05.txt AC 59 ms 6124 KB
06.txt AC 408 ms 89084 KB
07.txt AC 367 ms 86524 KB
08.txt AC 984 ms 87640 KB
09.txt AC 984 ms 87640 KB
10.txt AC 1001 ms 87640 KB