From b19d5feac5278f22a87eaf3fd77be4674e41e185 Mon Sep 17 00:00:00 2001
From: June McEnroe <june@causal.agency>
Date: Thu, 2 Dec 2021 11:44:01 -0500
Subject: Solve day 2 part 1

---
 2021/day02.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 2021/day02.pl

(limited to '2021')

diff --git a/2021/day02.pl b/2021/day02.pl
new file mode 100644
index 0000000..66e423a
--- /dev/null
+++ b/2021/day02.pl
@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+my ($depth, $pos) = (0, 0);
+while (<>) {
+	if (/forward (\d+)/) {
+		$pos += $1;
+	} elsif (/down (\d+)/) {
+		$depth += $1;
+	} elsif (/up (\d+)/) {
+		$depth -= $1;
+	}
+}
+print $depth * $pos, "\n";
-- 
cgit 1.4.1