AoC 2017 begins

[aoc.git] / 2017 / 08.pl

diff --git a/2017/08.pl b/2017/08.pl
new file mode 100755 (executable)
index 0000000..4017f65
--- /dev/null
+++ b/2017/08.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use v5.30;
+use strict;
+
+my $valid = 0;
+LINE:
+while (<>) {
+       chomp;
+       my %seen;
+       for my $w (split /\s+/) {
+               my $w1 = join('', sort split //, $w);
+               next LINE if $seen{$w1}++;
+       }
+       $valid++;
+}
+
+say $valid;
+