Moved 2020 to a subdir

[aoc.git] / 2020 / 11.pl

diff --git a/2020/11.pl b/2020/11.pl
new file mode 100755 (executable)
index 0000000..256c0ec
--- /dev/null
+++ b/2020/11.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+local $/ = "\n\n";
+
+my $sum = 0;
+
+while (<>) {
+       s/\n//g;
+       my %q = map { $_ => 1 } split //;
+       $sum += keys %q;
+}
+
+print "$sum\n";
+