Submission #906697


Source Code Expand

<>=~s/./$&=~S?++$s:$s&&--$s/ger;print$s*2

Submission Info

Submission Time
Task A - STring
User x20
Language Perl (v5.18.2)
Score 300
Code Size 41 Byte
Status AC
Exec Time 187 ms
Memory 19200 KB

Compile Error

Useless use of non-destructive substitution (s///r) in void context at ./Main.pl line 1.
./Main.pl syntax OK

Judge Result

Set Name Sample Subtask1 All
Score / Max Score 0 / 0 200 / 200 100 / 100
Status
AC × 3
AC × 9
AC × 13
Set Name Test Cases
Sample example0, example1, example2
Subtask1 example0, example1, example2, sub_corner0, sub_corner1, sub_corner2, sub_rand0, handmade0, handmade1
All corner0, corner1, corner2, example0, example1, example2, handmade0, handmade1, maxrand0, sub_corner0, sub_corner1, sub_corner2, sub_rand0
Case Name Status Exec Time Memory
corner0 AC 185 ms 19200 KB
corner1 AC 167 ms 18688 KB
corner2 AC 171 ms 18304 KB
example0 AC 4 ms 384 KB
example1 AC 4 ms 384 KB
example2 AC 4 ms 384 KB
handmade0 AC 4 ms 384 KB
handmade1 AC 4 ms 384 KB
maxrand0 AC 187 ms 18688 KB
sub_corner0 AC 4 ms 384 KB
sub_corner1 AC 4 ms 384 KB
sub_corner2 AC 4 ms 384 KB
sub_rand0 AC 4 ms 384 KB