From 0ddbf0004d01b202ce0c2f275f8a65719d307f68 Mon Sep 17 00:00:00 2001
From: June McEnroe <june@causal.agency>
Date: Mon, 11 Dec 2023 15:35:33 -0500
Subject: Solve day 4 part 1

---
 2023/day04.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 2023/day04.pl

diff --git a/2023/day04.pl b/2023/day04.pl
new file mode 100644
index 0000000..57b586c
--- /dev/null
+++ b/2023/day04.pl
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+my $points = 0;
+while (<>) {
+	chomp;
+	$_ =~ s/Card (\d+): //;
+	my ($winning, $mine) = split(/ [|] /);
+	my %winning = map {$_ => 1} split(/ +/, $winning);
+	my @mine = split(/ +/, $mine);
+	my $score = 0;
+	for (@mine) {
+		$score = ($score ? $score * 2 : 1) if exists $winning{$_};
+	}
+	$points += $score;
+}
+print $points, "\n";
-- 
cgit 1.4.1