modified: challenge-140/mattneleigh/perl/ch-1.pl

1 files 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];