From e114e13fea77b54fc4c1f5ce9911b3affa1b2971 Mon Sep 17 00:00:00 2001
From: Sebastian Bugge <vkbugge@hotmail.com>
Date: Tue, 3 Dec 2024 07:08:26 +0100
Subject: [PATCH] Add day 3.

---
 day03.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 day03.pl

diff --git a/day03.pl b/day03.pl
new file mode 100644
index 0000000..7c23b97
--- /dev/null
+++ b/day03.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my $sum = 0;
+my $enable = 1;
+
+## Part 1
+#while (<>) {
+#	while (/mul\((\d+),(\d+)\)/g) {
+#		$sum += $1 * $2;
+#	}
+#}
+#print $sum;
+
+## Part 2
+while (<>) {
+	while (/do\(\)|don't\(\)|mul\((\d+),(\d+)\)/g) {
+		if ($& eq 'do()') {
+			$enable = 1;
+			next;
+		} elsif ($& eq "don't()") {
+			$enable = 0;
+			next;
+		}
+
+		$sum += $1 * $2 if ($enable);
+	}
+}
+
+print $sum;