24-03-raku both

1 files changed, 17 insertions, 0 deletions

diff --git a/2024/03/raku.raku b/2024/03/raku.raku
new file mode 100755
index 0000000..38f040e
--- /dev/null
+++ b/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];