diff options
| -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 + $_) }) |