Submission #2117006

Source Code Expand

print<>!~$",(2+grep$'>($%+=$_),sort{$b-$a}glob<>)%($`+2)-1,$/

Submission Info

Submission Time
Task A - Credits
User x20
Language Perl (v5.18.2)
Score 100
Code Size 61 Byte
Status AC
Exec Time 9 ms
Memory 1024 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 18
Set Name Test Cases
All corner_10, corner_11, corner_12, corner_13, max_14, random_00, random_01, random_02, random_03, random_04, random_05, random_06, random_07, random_08, random_09, sample_00, sample_01, sample_02
Case Name Status Exec Time Memory
corner_10 AC 9 ms 1024 KB
corner_11 AC 5 ms 768 KB
corner_12 AC 5 ms 768 KB
corner_13 AC 5 ms 768 KB
max_14 AC 5 ms 768 KB
random_00 AC 5 ms 768 KB
random_01 AC 5 ms 768 KB
random_02 AC 5 ms 768 KB
random_03 AC 5 ms 768 KB
random_04 AC 5 ms 768 KB
random_05 AC 5 ms 768 KB
random_06 AC 5 ms 768 KB
random_07 AC 5 ms 768 KB
random_08 AC 5 ms 768 KB
random_09 AC 5 ms 768 KB
sample_00 AC 5 ms 768 KB
sample_01 AC 5 ms 768 KB
sample_02 AC 5 ms 768 KB