diff options
| author | Abigail <abigail@abigail.be> | 2021-10-08 18:25:46 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-10-08 18:25:46 +0200 |
| commit | 26757dea759cea40259ee4a19ccc150c3738d578 (patch) | |
| tree | e2025930cb572000fd44375f3138fe453ce098c1 | |
| parent | 7214430149332afb05c2aba1ab7e8d7e5d1c2013 (diff) | |
| download | perlweeklychallenge-club-26757dea759cea40259ee4a19ccc150c3738d578.tar.gz perlweeklychallenge-club-26757dea759cea40259ee4a19ccc150c3738d578.tar.bz2 perlweeklychallenge-club-26757dea759cea40259ee4a19ccc150c3738d578.zip | |
Tiny improvements
| -rw-r--r-- | challenge-133/abigail/perl/ch-2.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/challenge-133/abigail/perl/ch-2.pl b/challenge-133/abigail/perl/ch-2.pl index 178c362ab3..506e4ca1e6 100644 --- a/challenge-133/abigail/perl/ch-2.pl +++ b/challenge-133/abigail/perl/ch-2.pl @@ -27,12 +27,11 @@ my $COUNT = 10; # # Return the sum of the digits of the set of given numbers. # -sub digitsum (@n) {sum map {split //} @n} +sub digitsum (@n) {sum "@n" =~ /\d/ag} my $c = 0; -my $n = 1; +my $n = 0; do { - my @factors = factor $n; + my @factors = factor ++ $n; $c ++, say $n if @factors > 1 && digitsum ($n) == digitsum @factors; - $n ++; } until $c == $COUNT; |