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;
 }