diff options
| -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++; } |