diff options
| -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; } |