diff options
| -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"); |