diff options
| author | Walt Mankowski <waltman@pobox.com> | 2022-06-29 17:54:13 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2022-06-29 17:54:13 -0400 |
| commit | e489704e06b880b6e396f8ff04a4f11d08c3907e (patch) | |
| tree | b30d62bfac27264dd29b9eddb05c096a595e5a07 | |
| parent | 8cae5ff4375871746e62752c7139b9dff494e5a0 (diff) | |
| download | perlweeklychallenge-club-e489704e06b880b6e396f8ff04a4f11d08c3907e.tar.gz perlweeklychallenge-club-e489704e06b880b6e396f8ff04a4f11d08c3907e.tar.bz2 perlweeklychallenge-club-e489704e06b880b6e396f8ff04a4f11d08c3907e.zip | |
print $n as well as the sum when we find an abundant number
| -rw-r--r-- | challenge-168/walt-mankowski/perl/.perl-version | 2 | ||||
| -rw-r--r-- | challenge-171/walt-mankowski/perl/ch-1.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-168/walt-mankowski/perl/.perl-version b/challenge-168/walt-mankowski/perl/.perl-version index 04a883217e..795df42654 100644 --- a/challenge-168/walt-mankowski/perl/.perl-version +++ b/challenge-168/walt-mankowski/perl/.perl-version @@ -1 +1 @@ -5.34.0 +5.36.0 diff --git a/challenge-171/walt-mankowski/perl/ch-1.pl b/challenge-171/walt-mankowski/perl/ch-1.pl index 7db34fb7cd..135ec5e5f4 100644 --- a/challenge-171/walt-mankowski/perl/ch-1.pl +++ b/challenge-171/walt-mankowski/perl/ch-1.pl @@ -32,7 +32,7 @@ while (@abundant < 20) { my @od = odd_divisors($n); if (sum(@od) > $n) { push @abundant, $n; - printf "%2d: %s = %d\n", scalar @abundant, join(" + ", @od), sum(@od); + printf "%2d: %s = %d > %d\n", scalar @abundant, join(" + ", @od), sum(@od), $n; } $n += 2; } |