Merge pull request #10646 from MatthiasMuth/muthm-282

Challenge 282 Task 1 and 2 solutions in Perl by Matthias Muth (cosmetic changes)

2 files changed, 2 insertions, 7 deletions

diff --git a/challenge-282/matthias-muth/perl/ch-1.pl b/challenge-282/matthias-muth/perl/ch-1.pl
index fccdcaa6be..de9c0f6acf 100755
--- a/challenge-282/matthias-muth/perl/ch-1.pl
+++ b/challenge-282/matthias-muth/perl/ch-1.pl
@@ -10,12 +10,8 @@
 
 use v5.36;
 
-sub good_integer_1( $int ) {
-    return $int =~ / (.)\g{-1}\g{-1} /x ? $& : -1;
-}
-
 sub good_integer( $int ) {
-    return $int =~ / (?: ^ | (.)(?!\g{-1}) ) ( (.)\g{-1}\g{-1} ) (?!\g{-1}) /x ? $2 : -1;
+    return $int =~ / (?: ^ | (\d)(?!\g{-1}) ) ( (\d)\g{-1}\g{-1} ) (?!\g{-1}) /x ? $2 : -1;
 }
 
 use Test2::V0 qw( -no_srand );
@@ -23,7 +19,6 @@ use Test2::V0 qw( -no_srand );
 my $sub_name = "good_integer";
 for my $sub ( sort grep /^${sub_name}/, keys %:: ) {
     note "Testing $sub:";
-
     no strict 'refs';
     is $sub->( 12344456 ), 444,
         'Example 1: good_integer( 12344456 ) == 444';
diff --git a/challenge-282/matthias-muth/perl/ch-2.pl b/challenge-282/matthias-muth/perl/ch-2.pl
index da0a03c4c6..11b66ea762 100755
--- a/challenge-282/matthias-muth/perl/ch-2.pl
+++ b/challenge-282/matthias-muth/perl/ch-2.pl
@@ -11,7 +11,7 @@
 use v5.36;
 
 sub changing_keys( $str ) {
-    return scalar( () = $str =~ /(.)(?=.)(?=.)(?!\g1)/ig );
+    return scalar( () = $str =~ /(.)(?=.)(?!\g1)/ig );
 }
 
 use Test2::V0 qw( -no_srand );