diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-08-09 05:15:54 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-08-09 05:15:54 +0100 |
| commit | cdeda343bd6f44b567fc100cece604b721e7f4ea (patch) | |
| tree | 792d567fe48bea63587183b2f99b48c9b6f2bccc | |
| parent | 201f0efb74efe1ad527beaca31e320b1fb67b735 (diff) | |
| parent | 60b3beca72feebb323facec2f4b47eb97be5012c (diff) | |
| download | perlweeklychallenge-club-cdeda343bd6f44b567fc100cece604b721e7f4ea.tar.gz perlweeklychallenge-club-cdeda343bd6f44b567fc100cece604b721e7f4ea.tar.bz2 perlweeklychallenge-club-cdeda343bd6f44b567fc100cece604b721e7f4ea.zip | |
Merge pull request #485 from andemark/new-branch
Added variables for clarity.
| -rw-r--r-- | challenge-020/mark-anderson/perl5/ch-2.pl | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/challenge-020/mark-anderson/perl5/ch-2.pl b/challenge-020/mark-anderson/perl5/ch-2.pl index b3f29fd3bf..6eadcf8d15 100644 --- a/challenge-020/mark-anderson/perl5/ch-2.pl +++ b/challenge-020/mark-anderson/perl5/ch-2.pl @@ -5,22 +5,19 @@ use List::Util 'sum'; use Math::Factor::XS 'factors'; my %sum; - -my $num_1 = 0; +my $num_1; while(1) { $num_1++; - - my $num_2 = sum (1, factors($num_1)); - + $sum{$num_1} = sum(1, factors($num_1)); + my $sum_1 = $sum{$num_1}; + my $num_2 = $sum_1; next if $num_1 == $num_2; - - $sum{$num_1} = $num_2; - $sum{$num_2} // next; + my $sum_2 = $sum{$num_2}; - if($num_1 == $sum{$num_2}) { - say "$num_2, $num_1"; + if($num_1 == $sum_2) { + say "$sum_1, $sum_2"; last; } } |