From 1c5eece32e0d56b33649bd570968a607174d27d9 Mon Sep 17 00:00:00 2001
From: Roger Bell_West <roger@firedrake.org>
Date: Mon, 5 Aug 2019 10:03:48 +0100
Subject: Remove premature optimisation

---
 challenge-020/roger-bell-west/perl5/ch-2.pl | 6 ------
 1 file changed, 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";
-- 
cgit