From d8a26a177ab5f54bb8967f01b2b14459d6fb7cde Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 30 Jan 2022 02:27:16 +0000
Subject: - Tidied up Perl solution.

---
 challenge-149/mohammad-anwar/perl/ch-1.pl | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'challenge-149')

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++;
     }
 
-- 
cgit