adventofcode/2015/01/d1.pl

5 lines
55 B
Perl

use 5.20.0;
say eval <> =~ s/\(/+1/gr =~ s/\)/-1/gr;