Submission #2116994

Source Code Expand

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

Submission Info

Submission Time
Task A - Credits
User x20
Language Perl6 (rakudo-star 2016.01)
Score 100
Code Size 64 Byte
Status AC
Exec Time 186 ms
Memory 58064 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 164 ms 53268 KB
corner_11 AC 164 ms 52888 KB
corner_12 AC 163 ms 54740 KB
corner_13 AC 163 ms 54224 KB
max_14 AC 186 ms 58064 KB
random_00 AC 174 ms 57172 KB
random_01 AC 179 ms 56916 KB
random_02 AC 166 ms 53656 KB
random_03 AC 183 ms 57684 KB
random_04 AC 164 ms 53780 KB
random_05 AC 178 ms 56656 KB
random_06 AC 168 ms 54096 KB
random_07 AC 180 ms 56528 KB
random_08 AC 175 ms 56784 KB
random_09 AC 174 ms 56276 KB
sample_00 AC 164 ms 53780 KB
sample_01 AC 167 ms 53524 KB
sample_02 AC 163 ms 53524 KB