5 lines
55 B
Perl
5 lines
55 B
Perl
use 5.20.0;
|
|
|
|
say eval <> =~ s/\(/+1/gr =~ s/\)/-1/gr;
|
|
|
use 5.20.0;
|
|
|
|
say eval <> =~ s/\(/+1/gr =~ s/\)/-1/gr;
|
|
|