diff options
| author | mhsn <mail@mhsn.net> | 2026-03-18 21:48:13 +0000 |
|---|---|---|
| committer | mhsn <mail@mhsn.net> | 2026-03-18 21:48:13 +0000 |
| commit | 86bac31392a76da84817eec020d2b84d099b3cc1 (patch) | |
| tree | e2ee52db59b86b914d5b4bcceb19c9b5d899fff4 /2024/03/raku.raku | |
| parent | 62fe361fc42dea75deaf7ac31c0ba6ba80e26a9c (diff) | |
| download | puzzles-86bac31392a76da84817eec020d2b84d099b3cc1.tar.gz puzzles-86bac31392a76da84817eec020d2b84d099b3cc1.zip | |
Diffstat (limited to '2024/03/raku.raku')
| -rwxr-xr-x | 2024/03/raku.raku | 17 |
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]; |
