Week 149, part 1: Use same algorithm for Perl solution.

When calculating the sum of the digits, use the modulo and divide
method, instead of stringifying and summing the digits extracted
with a regexp.

1 files changed, 11 insertions, 1 deletions

diff --git a/challenge-149/abigail/perl/ch-1.pl b/challenge-149/abigail/perl/ch-1.pl
index ca72dbefbf..0f4127cb8a 100644
--- a/challenge-149/abigail/perl/ch-1.pl
+++ b/challenge-149/abigail/perl/ch-1.pl
@@ -29,7 +29,17 @@ use List::Util qw [sum];
 #
 # Return the sum of the digits of its argument
 #
-sub digitsum ($n) {sum $n =~ /\d/ag}
+sub digitsum ($number) {
+    my $sum  =  0;
+    my $base = 10;
+    while ($number > 0) {
+        use integer;
+        $sum    += $number % $base;
+        $number /= $base;
+    }
+    return $sum;
+}
+
 
 #
 # Return whether the argument is a Fibonacci number. We do this by