Submission #904634

Source Code Expand

<>=~s/./$&eq'S'?++$s:$s?--$s:++$t/ger;print$s+$t,$/

Submission Info

Submission Time
Task A - STring
User x20
Language Perl (v5.18.2)
Score 300
Code Size 51 Byte
Status AC
Exec Time 150 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 144 ms 19200 KB
corner1 AC 143 ms 19072 KB
corner2 AC 142 ms 18432 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 150 ms 18688 KB
sub_corner0 AC 4 ms 512 KB
sub_corner1 AC 4 ms 512 KB
sub_corner2 AC 4 ms 384 KB
sub_rand0 AC 4 ms 384 KB