From e489704e06b880b6e396f8ff04a4f11d08c3907e Mon Sep 17 00:00:00 2001 From: Walt Mankowski Date: Wed, 29 Jun 2022 17:54:13 -0400 Subject: print $n as well as the sum when we find an abundant number --- challenge-168/walt-mankowski/perl/.perl-version | 2 +- 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; } -- cgit