diff options
| author | Scimon <simon.proctor@gmail.com> | 2025-07-14 11:02:45 +0100 |
|---|---|---|
| committer | Scimon <simon.proctor@gmail.com> | 2025-07-14 11:02:45 +0100 |
| commit | 19d744aab2edc6987db102b870b35bf4f2461b71 (patch) | |
| tree | 4d1c9b0340daf71a537b56d167e17c6f2d17f3cf | |
| parent | cb7fe316e38c10c20b24b82484c201a6e706ccd5 (diff) | |
| download | perlweeklychallenge-club-19d744aab2edc6987db102b870b35bf4f2461b71.tar.gz perlweeklychallenge-club-19d744aab2edc6987db102b870b35bf4f2461b71.tar.bz2 perlweeklychallenge-club-19d744aab2edc6987db102b870b35bf4f2461b71.zip | |
Continued tidying.
| -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 5c3c027128..f37cecd14d 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 / ); - return $str; + loop-strip( $str, / \D?\d / ); } sub loop-strip( $str is copy, $regex ) { |