diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-30 02:27:16 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-01-30 02:27:16 +0000 |
| commit | d8a26a177ab5f54bb8967f01b2b14459d6fb7cde (patch) | |
| tree | b574935059efb3ccfb78911dd134e7e22e9847ad /challenge-149 | |
| parent | 2232cab693b42b73fbf94508a6ec0da9c0fea906 (diff) | |
| download | perlweeklychallenge-club-d8a26a177ab5f54bb8967f01b2b14459d6fb7cde.tar.gz perlweeklychallenge-club-d8a26a177ab5f54bb8967f01b2b14459d6fb7cde.tar.bz2 perlweeklychallenge-club-d8a26a177ab5f54bb8967f01b2b14459d6fb7cde.zip | |
- Tidied up Perl solution.
Diffstat (limited to 'challenge-149')
| -rw-r--r-- | challenge-149/mohammad-anwar/perl/ch-1.pl | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/challenge-149/mohammad-anwar/perl/ch-1.pl b/challenge-149/mohammad-anwar/perl/ch-1.pl index a03c902a85..0723d1ce90 100644 --- a/challenge-149/mohammad-anwar/perl/ch-1.pl +++ b/challenge-149/mohammad-anwar/perl/ch-1.pl @@ -39,19 +39,18 @@ sub fibonacci_digit_sum { push @fibonacci, $fibonacci[-1] + $fibonacci[-2]; } + my $sum = 0; if ($index < 10) { - if (grep /$index/, @fibonacci) { - push @digit_sum, $index; - } + $sum = $index; } else { - my $sum = 0; $sum += $_ for (split //,$index); + } - if (grep /\b$sum\b/, @fibonacci) { - push @digit_sum, $index; - } + if (grep /\b$sum\b/, @fibonacci) { + push @digit_sum, $index; } + $index++; } |