diff options
| -rwxr-xr-x | challenge-020/roger-bell-west/perl5/ch-2.pl | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/challenge-020/roger-bell-west/perl5/ch-2.pl b/challenge-020/roger-bell-west/perl5/ch-2.pl index 36ab4ba1c2..8647aff669 100755 --- a/challenge-020/roger-bell-west/perl5/ch-2.pl +++ b/challenge-020/roger-bell-west/perl5/ch-2.pl @@ -11,17 +11,11 @@ my $a=Math::BigInt->new(1); while (1) { $a++; my @a=grep {$_ != $a} divisors($a); - unless (@a) { - next; - } my $b=sum(@a); if ($b <= $a) { next; } my @b=grep {$_ != $b} divisors($b); - unless (@b) { - next; - } my $aa=sum(@b); if ($aa == $a) { print "$a, $b\n"; |