From 86bac31392a76da84817eec020d2b84d099b3cc1 Mon Sep 17 00:00:00 2001
From: mhsn <mail@mhsn.net>
Date: Wed, 18 Mar 2026 21:48:13 +0000
Subject: add other challenges support

---
 aoc/2024/03/raku.raku | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 aoc/2024/03/raku.raku

(limited to 'aoc/2024/03/raku.raku')

diff --git a/aoc/2024/03/raku.raku b/aoc/2024/03/raku.raku
new file mode 100755
index 0000000..38f040e
--- /dev/null
+++ b/aoc/2024/03/raku.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+my $p = slurp;
+
+sub p2 (($on, $tot), ($i, |n)) { 
+	given $i {
+		when "mul"   { return ($on , $tot + [*] $on, |n.list) }
+		when "do"    { return (1   , $tot) }
+		when "don't" { return (0   , $tot) }
+	}
+};
+
+$p ~~ m:g/ mul\((\d ** 1..3)\,(\d ** 1..3)\) /;
+say "silver: ", $/.map({ [*] $_.list }).sum;
+
+$p ~~ m:g/ (mul)\((\d ** 1..3)\,(\d ** 1..3)\) | (do)\(\) | (don\'t)\(\) /;
+say "gold: ", ([[&p2]] <1 0>, |$/)[1];
-- 
cgit v1.2.3