diff options
| author | Scimon <simon.proctor@gmail.com> | 2025-07-14 11:00:49 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2025-07-14 11:00:49 +0100 |
| commit | cb7fe316e38c10c20b24b82484c201a6e706ccd5 (patch) | |
| tree | 92d52aa24197bc1909f3fcd82fada580c6ce277d | |
| parent | c2878fb25dd8f743c371fe3263519e91be6c3ae2 (diff) | |
| download | perlweeklychallenge-club-cb7fe316e38c10c20b24b82484c201a6e706ccd5.tar.gz perlweeklychallenge-club-cb7fe316e38c10c20b24b82484c201a6e706ccd5.tar.bz2 perlweeklychallenge-club-cb7fe316e38c10c20b24b82484c201a6e706ccd5.zip | |
Small change
| -rwxr-xr-x | challenge-330/simon-proctor/raku/ch-1.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-330/simon-proctor/raku/ch-1.raku b/challenge-330/simon-proctor/raku/ch-1.raku index 7defc70037..5c3c027128 100755 --- a/challenge-330/simon-proctor/raku/ch-1.raku +++ b/challenge-330/simon-proctor/raku/ch-1.raku @@ -13,8 +13,7 @@ multi sub MAIN(:t(:$test)) is hidden-from-USAGE { } sub clear-digits(ValidInput $str is copy) { - $str = loop-strip( $str, / \D\d / ); - $str = loop-strip( $str, /^ \d / ); + $str = loop-strip( $str, / \D?\d / ); return $str; } |