diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-07-05 19:59:22 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-07-05 19:59:22 +0100 |
| commit | c65be24cab402201d79f2996efd8ecfc2b68eb7e (patch) | |
| tree | ca26b3c3345db406e997b4dc590fcda0771c76a8 | |
| parent | 163fdfcb23ae750ac5affd8a72ac8f026e58eafb (diff) | |
| parent | 3f1e79980f51eb9334fa2a643837ea8f0c5829e8 (diff) | |
| download | perlweeklychallenge-club-c65be24cab402201d79f2996efd8ecfc2b68eb7e.tar.gz perlweeklychallenge-club-c65be24cab402201d79f2996efd8ecfc2b68eb7e.tar.bz2 perlweeklychallenge-club-c65be24cab402201d79f2996efd8ecfc2b68eb7e.zip | |
Merge pull request #12287 from andemark/challenge-328
minor touch-up
| -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 |