Add 2018 day 2 part 1 solution

1 files changed, 19 insertions, 0 deletions

diff --git a/2018/02/puzzle-1.pl b/2018/02/puzzle-1.pl
new file mode 100755
index 0000000..85a533b
--- /dev/null
+++ b/2018/02/puzzle-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $file = "input";
+open my $in, "<", $file or die "Failed to open ‘$file’: $!";
+
+my ($x, $y) = (0) x 2;
+while (<$in>) {
+	chomp;
+	my %freq;
+	$freq{$_}++ for split //;
+	$x++ if grep { $_ == 2 } values %freq;
+	$y++ if grep { $_ == 3 } values %freq;
+}
+
+close $in;
+printf "%d\n", $x * $y;