summaryrefslogtreecommitdiff
path: root/2024/03/raku.raku
diff options
context:
space:
mode:
authormhsn <mail@mhsn.net>2026-03-18 21:48:13 +0000
committermhsn <mail@mhsn.net>2026-03-18 21:48:13 +0000
commit86bac31392a76da84817eec020d2b84d099b3cc1 (patch)
treee2ee52db59b86b914d5b4bcceb19c9b5d899fff4 /2024/03/raku.raku
parent62fe361fc42dea75deaf7ac31c0ba6ba80e26a9c (diff)
downloadpuzzles-master.tar.gz
puzzles-master.zip
add other challenges supportHEADmaster
Diffstat (limited to '2024/03/raku.raku')
-rwxr-xr-x2024/03/raku.raku17
1 files changed, 0 insertions, 17 deletions
diff --git a/2024/03/raku.raku b/2024/03/raku.raku
deleted file mode 100755
index 38f040e..0000000
--- a/2024/03/raku.raku
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/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];