diff options
| -rwxr-xr-x | challenge-020/veesh-goldman/perl5/ch-02.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-020/veesh-goldman/perl5/ch-02.pl b/challenge-020/veesh-goldman/perl5/ch-02.pl index e5ef309883..31c6dedd42 100755 --- a/challenge-020/veesh-goldman/perl5/ch-02.pl +++ b/challenge-020/veesh-goldman/perl5/ch-02.pl @@ -10,9 +10,10 @@ sub sum_of_proper_divisors { sub has_amicable { my $start = shift; + my $pair = sum_of_proper_divisors($start); #sometimes the sum of the divisors IS the number. But that's not amicable - return 0 if sum_of_proper_divisors($start) == $start; - return $start == sum_of_proper_divisors( sum_of_proper_divisors($start) ) + return 0 if $pair == $start; + return $start == sum_of_proper_divisors $pair; } |