From 69d73187d5fb12de0923fef08013c9c8a2f4298a Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Mon, 9 Dec 2019 20:49:26 +0100
Subject: day08

---
 day08.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 day08.pl

(limited to 'day08.pl')

diff --git a/day08.pl b/day08.pl
new file mode 100644
index 0000000..3a5e8a0
--- /dev/null
+++ b/day08.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+use v5.16;
+
+use File::Slurper 'read_lines';
+use List::Util qw'reduce';
+
+my @d = unpack "(A150)*", (read_lines('day08'))[0];
+
+my $p1 = reduce { (()=$a =~ /0/g) > (()=$b =~ /0/g) ? $b : $a } @d;
+say((()=$p1 =~ /1/g)*(()=$p1 =~ /2/g));
+
+my $p2 = "";
+INDEX: for my $i (0..149) {
+    for (@d) {
+        if ((my $c = substr($_, $i, 1)) ne "2") {
+            $p2 .= $c;
+            next INDEX;
+        }
+    }
+} 
+$p2 =~ tr/01/ #/;
+say join "\n", unpack("(A25)*", $p2)
-- 
cgit 1.4.1