From 40f89b69313cc66a5fe3f21b7044c27f8e03384d Mon Sep 17 00:00:00 2001
From: Matthew Neleigh <matthew.neleigh@gmail.com>
Date: Sun, 28 Nov 2021 18:15:35 -0500
Subject: 	modified:   challenge-140/mattneleigh/perl/ch-1.pl

---
 challenge-140/mattneleigh/perl/ch-1.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/challenge-140/mattneleigh/perl/ch-1.pl b/challenge-140/mattneleigh/perl/ch-1.pl
index c55b1d999e..d6aac51cff 100755
--- a/challenge-140/mattneleigh/perl/ch-1.pl
+++ b/challenge-140/mattneleigh/perl/ch-1.pl
@@ -146,8 +146,9 @@ sub add{
     return(undef)
         unless(blessed($addend) && $addend->isa('binaryNumber'));
 
-    # Store the digits individually- but
-    # reversed (least-significant bit first)
+    # Extract the individual digits and store
+    # them in reverse order (least
+    # significant bit first)
     my @self_digits = reverse(split("", $self->{value}));
     my @addend_digits = reverse(split("", $addend->getValue()));
     my $max;
@@ -164,8 +165,7 @@ sub add{
         :
         scalar(@addend_digits);
 
-    # Loop over the longest list, adding
-    # as we go
+    # Loop over the longest list
     for($i = 0; $i < $max; $i++){
         my $self_digit = $self_digits[$i];
         my $addend_digit = $addend_digits[$i];
-- 
cgit