diff options
| author | Mark Anderson <mark@andemark.io> | 2025-05-12 05:46:49 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2025-05-12 05:46:49 +0000 |
| commit | 3b79cd91c932e3b05c35385bcc7506f643c99655 (patch) | |
| tree | 28ea713558f896a7233186c8ae2873cf2bf8fdfa | |
| parent | 6ca51769a6a49f7eb63ef2ab8c62be796a16586a (diff) | |
| download | perlweeklychallenge-club-3b79cd91c932e3b05c35385bcc7506f643c99655.tar.gz perlweeklychallenge-club-3b79cd91c932e3b05c35385bcc7506f643c99655.tar.bz2 perlweeklychallenge-club-3b79cd91c932e3b05c35385bcc7506f643c99655.zip | |
Challenge 321 Solutions (Raku)
| -rw-r--r-- | challenge-321/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-321/mark-anderson/raku/ch-2.raku b/challenge-321/mark-anderson/raku/ch-2.raku index 868246f543..b0f6053d31 100644 --- a/challenge-321/mark-anderson/raku/ch-2.raku +++ b/challenge-321/mark-anderson/raku/ch-2.raku @@ -11,7 +11,7 @@ sub backspace-compare($str1, $str2) { loop { - last unless $s ~~ s/(<lower>+)('#'+) <?{ $0.chars <= $1.chars }>// + last unless $s ~~ s/(<lower>*)('#'+) <?{ $0.chars <= $1.chars }>// } $s |