Submission #2116943

Source Code Expand

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

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 191 ms
Memory 58868 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 168 ms 53624 KB
corner_11 AC 168 ms 54388 KB
corner_12 AC 168 ms 54392 KB
corner_13 AC 171 ms 55156 KB
max_14 AC 190 ms 58868 KB
random_00 AC 179 ms 56312 KB
random_01 AC 183 ms 57844 KB
random_02 AC 172 ms 54392 KB
random_03 AC 191 ms 58488 KB
random_04 AC 172 ms 55284 KB
random_05 AC 187 ms 57208 KB
random_06 AC 173 ms 55028 KB
random_07 AC 185 ms 57596 KB
random_08 AC 181 ms 56436 KB
random_09 AC 179 ms 56824 KB
sample_00 AC 169 ms 53880 KB
sample_01 AC 169 ms 54008 KB
sample_02 AC 168 ms 55284 KB