diff options
| author | Matthew Neleigh <matthew.neleigh@gmail.com> | 2022-01-27 13:34:51 -0500 |
|---|---|---|
| committer | Matthew Neleigh <matthew.neleigh@gmail.com> | 2022-01-27 13:34:51 -0500 |
| commit | e826691c8b6abeabe2f401f0b8a1003e1c14374c (patch) | |
| tree | 8ee13828b65c363a0e5be0896c1bf5262d834270 | |
| parent | 14febc0403974e7ed9f55cd4634f57806e3c8011 (diff) | |
| download | perlweeklychallenge-club-e826691c8b6abeabe2f401f0b8a1003e1c14374c.tar.gz perlweeklychallenge-club-e826691c8b6abeabe2f401f0b8a1003e1c14374c.tar.bz2 perlweeklychallenge-club-e826691c8b6abeabe2f401f0b8a1003e1c14374c.zip | |
modified: challenge-149/mattneleigh/perl/ch-2.pl
| -rwxr-xr-x | challenge-149/mattneleigh/perl/ch-2.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-149/mattneleigh/perl/ch-2.pl b/challenge-149/mattneleigh/perl/ch-2.pl index 32b9c0f7dc..4bbe2b11c8 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 |