diff options
| author | Walt Mankowski <waltman@pobox.com> | 2022-06-29 17:52:50 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2022-06-29 17:52:50 -0400 |
| commit | 8cae5ff4375871746e62752c7139b9dff494e5a0 (patch) | |
| tree | e552d4044917543b0c5b095d65ea2051a825e3b4 | |
| parent | 2a52cc45b1bb708ba472cf68252d2b09d29bfb7a (diff) | |
| download | perlweeklychallenge-club-8cae5ff4375871746e62752c7139b9dff494e5a0.tar.gz perlweeklychallenge-club-8cae5ff4375871746e62752c7139b9dff494e5a0.tar.bz2 perlweeklychallenge-club-8cae5ff4375871746e62752c7139b9dff494e5a0.zip | |
every number has 1 as a divisor, so start at 3
This fixes an undef warning for $n=1
| -rw-r--r-- | challenge-171/walt-mankowski/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-171/walt-mankowski/perl/ch-1.pl b/challenge-171/walt-mankowski/perl/ch-1.pl index 893ca760f7..7db34fb7cd 100644 --- a/challenge-171/walt-mankowski/perl/ch-1.pl +++ b/challenge-171/walt-mankowski/perl/ch-1.pl @@ -18,9 +18,9 @@ use List::Util qw(sum); # 1 + 3 + 5 + 7 + 9 + 15 + 21 + 27 + 35 + 45 + 63 + 105 + 135 + 189 + 315 = 975 sub odd_divisors($n) { - my @od; + my @od = (1); my $max = $n / 2; - for (my $i = 1; $i <= $max; $i += 2) { + for (my $i = 3; $i <= $max; $i += 2) { push @od, $i if $n % $i == 0; } return @od; |