From 6101810c7ac7abf19126b42c67291d5c3577aadf Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Sat, 5 Jul 2025 14:25:22 +0000 Subject: minor touch-up --- challenge-328/mark-anderson/raku/ch-2.raku | 5 ++--- 1 file 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..e46f156483 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/); + last unless $/ } return $str -- cgit From 3f1e79980f51eb9334fa2a643837ea8f0c5829e8 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Sat, 5 Jul 2025 15:02:33 +0000 Subject: minor touch-up --- challenge-328/mark-anderson/raku/ch-2.raku | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-328/mark-anderson/raku/ch-2.raku b/challenge-328/mark-anderson/raku/ch-2.raku index e46f156483..f7c2f187de 100644 --- a/challenge-328/mark-anderson/raku/ch-2.raku +++ b/challenge-328/mark-anderson/raku/ch-2.raku @@ -16,7 +16,7 @@ sub good-string($str is copy) loop { - $str .= subst(/@a/); + $str .= subst(/@a/, :g); last unless $/ } -- cgit