diff options
| -rw-r--r-- | challenge-328/mark-anderson/raku/ch-2.raku | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-328/mark-anderson/raku/ch-2.raku b/challenge-328/mark-anderson/raku/ch-2.raku index 832898d68d..f7c2f187de 100644 --- a/challenge-328/mark-anderson/raku/ch-2.raku +++ b/challenge-328/mark-anderson/raku/ch-2.raku @@ -16,9 +16,8 @@ sub good-string($str is copy) loop { - my @s = $str.split(/@a/); - last if @s == 1; - $str = [~] @s + $str .= subst(/@a/, :g); + last unless $/ } return $str |