Submission #2116926

Source Code Expand

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

Submission Info

Submission Time
Task A - Credits
User kotatsugame
Language Perl6 (rakudo-star 2016.01)
Score 100
Code Size 72 Byte
Status AC
Exec Time 193 ms
Memory 58672 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 173 ms 55084 KB
corner_11 AC 176 ms 55472 KB
corner_12 AC 177 ms 54448 KB
corner_13 AC 176 ms 55600 KB
max_14 AC 193 ms 58160 KB
random_00 AC 180 ms 55600 KB
random_01 AC 186 ms 57516 KB
random_02 AC 175 ms 55600 KB
random_03 AC 191 ms 58672 KB
random_04 AC 174 ms 54192 KB
random_05 AC 188 ms 57132 KB
random_06 AC 178 ms 54832 KB
random_07 AC 191 ms 57644 KB
random_08 AC 183 ms 56112 KB
random_09 AC 181 ms 55724 KB
sample_00 AC 176 ms 54576 KB
sample_01 AC 178 ms 55344 KB
sample_02 AC 175 ms 55212 KB