Submission #2116932

Source Code Expand

get~~m:g/\d+/;say (1..$0)[+grep $1>*,[\+] get.words.sort: -*]||-1

Submission Info

Submission Time
Task A - Credits
User kotatsugame
Language Perl6 (rakudo-star 2016.01)
Score 100
Code Size 65 Byte
Status AC
Exec Time 196 ms
Memory 58864 KB

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 172 ms 53236 KB
corner_11 AC 173 ms 53236 KB
corner_12 AC 174 ms 55152 KB
corner_13 AC 174 ms 54260 KB
max_14 AC 196 ms 58864 KB
random_00 AC 186 ms 57328 KB
random_01 AC 185 ms 57332 KB
random_02 AC 175 ms 54388 KB
random_03 AC 194 ms 58484 KB
random_04 AC 174 ms 54644 KB
random_05 AC 188 ms 57588 KB
random_06 AC 176 ms 55796 KB
random_07 AC 186 ms 57460 KB
random_08 AC 185 ms 57328 KB
random_09 AC 182 ms 58228 KB
sample_00 AC 173 ms 54128 KB
sample_01 AC 173 ms 53616 KB
sample_02 AC 171 ms 54512 KB