From d60696fd5015f0de3f3d80f4f183ccfe681c4092 Mon Sep 17 00:00:00 2001 From: LapVeesh Date: Sun, 11 Aug 2019 23:57:34 +0300 Subject: Refactored a drop --- challenge-020/veesh-goldman/perl5/ch-02.pl | 5 +++-- 1 file 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; } -- cgit