diff options
| author | Mark Anderson <mark@andemark.io> | 2024-06-24 13:07:46 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2024-06-24 13:07:46 +0000 |
| commit | 0bf1a8f78a7032c192a341803615ce331e30306a (patch) | |
| tree | 3b4ebde4048c00ded4d94e240cdf69f49ca8b088 | |
| parent | 87a17ee467b49dd156cec7571f67dfb4120159b0 (diff) | |
| download | perlweeklychallenge-club-0bf1a8f78a7032c192a341803615ce331e30306a.tar.gz perlweeklychallenge-club-0bf1a8f78a7032c192a341803615ce331e30306a.tar.bz2 perlweeklychallenge-club-0bf1a8f78a7032c192a341803615ce331e30306a.zip | |
Challenge 275 Solutions (Raku)
| -rw-r--r-- | challenge-275/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-275/mark-anderson/raku/ch-2.raku b/challenge-275/mark-anderson/raku/ch-2.raku index 412bfea82f..e88360e34e 100644 --- a/challenge-275/mark-anderson/raku/ch-2.raku +++ b/challenge-275/mark-anderson/raku/ch-2.raku @@ -11,7 +11,7 @@ sub replace-digits($s) { my ($head, $tail) = $s.split(/ <.alpha>+ $ /, :v); - my @result = do for $head.split(/\d+/, :v:skip-empty).batch(2) + my @result = do for $head.split(/ <.digit>+ /, :v:skip-empty).batch(2) { my $char = .head ~~ / <.alpha> $ /; $char ~ [~] .tail.comb.map({ chr($char.ord + $_) }) |