diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-01-27 19:20:57 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-01-27 19:20:57 +0000 |
| commit | 8db3821bab34abeb53ebe4bf6a279a3783719d03 (patch) | |
| tree | bfe6483f9db6acbf5ad4532c9e512e1b7727ee3e | |
| parent | 9abeab654b54c1b827d65af90628b3014bdad0fb (diff) | |
| parent | 43d3fd3710e77f3ed9ba0c660f6d83d259b98443 (diff) | |
| download | perlweeklychallenge-club-8db3821bab34abeb53ebe4bf6a279a3783719d03.tar.gz perlweeklychallenge-club-8db3821bab34abeb53ebe4bf6a279a3783719d03.tar.bz2 perlweeklychallenge-club-8db3821bab34abeb53ebe4bf6a279a3783719d03.zip | |
Merge pull request #5575 from mattneleigh/pwc149
Pwc149
| -rwxr-xr-x | challenge-149/mattneleigh/perl/ch-2.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/challenge-149/mattneleigh/perl/ch-2.pl b/challenge-149/mattneleigh/perl/ch-2.pl index 32b9c0f7dc..c37dd21348 100755 --- a/challenge-149/mattneleigh/perl/ch-2.pl +++ b/challenge-149/mattneleigh/perl/ch-2.pl @@ -74,7 +74,8 @@ sub calculate_largest_non_repeating_square_in_base{ ( # Assignment to capture digit string is deliberate ($digit_string = number_to_digit_string($root ** 2, $base)) - =~ m/(.).{0,}\1/ + =~ + m/(.).{0,}\1/ ) ){ # Decrement the root @@ -182,9 +183,6 @@ sub number_to_digit_string{ ); my $string = ""; - return(undef) - if($base > scalar(@digit_list)); - # Special case of the number being zero if($number == 0){ return("0"); |