Moved 2020 to a subdir

[aoc.git] / 2020 / 36.pl

diff --git a/2020/36.pl b/2020/36.pl
new file mode 100755 (executable)
index 0000000..4e25489
--- /dev/null
+++ b/2020/36.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+$_ = '(('.join(')+(', <>).'))';
+s/\s//g;
+1 while
+       s/\((\d+)\)/$1/ ||
+       s/(\([^\(\)]*?)(\d+)\+(\d+)([^\(\)]*\))/$1.($2+$3).$4/e ||
+       s/(\([^\(\)]*?)(\d+)\*(\d+)([^\(\)]*\))/$1.($2*$3).$4/e;
+print "sum=$_\n";