diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2019-08-08 21:55:05 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2019-08-08 21:55:05 -0600 |
| commit | 60b3beca72feebb323facec2f4b47eb97be5012c (patch) | |
| tree | 792d567fe48bea63587183b2f99b48c9b6f2bccc /challenge-020/mark-anderson | |
| parent | 201f0efb74efe1ad527beaca31e320b1fb67b735 (diff) | |
| download | perlweeklychallenge-club-60b3beca72feebb323facec2f4b47eb97be5012c.tar.gz perlweeklychallenge-club-60b3beca72feebb323facec2f4b47eb97be5012c.tar.bz2 perlweeklychallenge-club-60b3beca72feebb323facec2f4b47eb97be5012c.zip | |
Added variables for clarity.
Diffstat (limited to 'challenge-020/mark-anderson')
| -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; } } |