Remove premature optimisation

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";