Moved 2020 to a subdir

[aoc.git] / 2020 / 35.pl

diff --git a/2020/35.pl b/2020/35.pl
new file mode 100755 (executable)
index 0000000..5582de3
--- /dev/null
+++ b/2020/35.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $sum = 0;
+while (<>) {
+       chomp;
+       1 while
+               s/\((\d+)\)/$1/ ||
+               s/(\d+)\s*([\+\*])\s*(\d+)/"$1$2$3"/ee;
+       $sum += $_;
+}
+print "sum=$sum\n";