From b4431851ea5b0a9b82c38e13fcbe0301d4a42e0d Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Wed, 10 Dec 2025 16:45:27 +0100 Subject: Add 2018 day 2 part 1 solution --- 2018/02/puzzle-1.pl | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100755 2018/02/puzzle-1.pl (limited to '2018/02/puzzle-1.pl') 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; -- cgit v1.2.3