diff options
| author | LapVeesh <rabbiveesh@gmail.com> | 2019-08-11 23:57:34 +0300 |
|---|---|---|
| committer | LapVeesh <rabbiveesh@gmail.com> | 2019-08-11 23:57:34 +0300 |
| commit | d60696fd5015f0de3f3d80f4f183ccfe681c4092 (patch) | |
| tree | 9fed9cf04ff26a1ffb4980ea78592e9c9520dc92 /challenge-020 | |
| parent | 090af051b19abda6d8c10b7cafe0eb8a119bd9ec (diff) | |
| download | perlweeklychallenge-club-d60696fd5015f0de3f3d80f4f183ccfe681c4092.tar.gz perlweeklychallenge-club-d60696fd5015f0de3f3d80f4f183ccfe681c4092.tar.bz2 perlweeklychallenge-club-d60696fd5015f0de3f3d80f4f183ccfe681c4092.zip | |
Refactored a drop
Diffstat (limited to 'challenge-020')
| -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; } |