Year 2016, days 1-10: so far pretty interesting

[aoc.git] / 2016 / 11.pl

diff --git a/2016/11.pl b/2016/11.pl
new file mode 100755 (executable)
index 0000000..bb43630
--- /dev/null
+++ b/2016/11.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+use strict;
+use v5.30;
+
+my %h;
+while (<>) {
+       chomp;
+       my $i = 0;
+       for my $l (split //) {
+               $h{$i++}{$l}++;
+       }
+}
+
+my $p;
+
+for my $i (0..7) {
+       my @a = sort { $h{$i}{$b} <=> $h{$i}{$a} } keys %{ $h{$i} };
+       $p .= $a[0];
+}
+
+say $p;
+               
+