From 82d956345538d20581f2299015960f514aa679b3 Mon Sep 17 00:00:00 2001
From: Matthew Neleigh <matthew.neleigh@gmail.com>
Date: Sun, 28 Nov 2021 18:05:31 -0500
Subject: 	new file:   challenge-140/mattneleigh/perl/ch-1.pl 	new
 file:   challenge-140/mattneleigh/perl/ch-2.pl

---
 challenge-140/mattneleigh/perl/ch-1.pl | 212 +++++++++++++++++++++++++++++++++
 challenge-140/mattneleigh/perl/ch-2.pl |  71 +++++++++++
 2 files changed, 283 insertions(+)
 create mode 100755 challenge-140/mattneleigh/perl/ch-1.pl
 create mode 100755 challenge-140/mattneleigh/perl/ch-2.pl

diff --git a/challenge-140/mattneleigh/perl/ch-1.pl b/challenge-140/mattneleigh/perl/ch-1.pl
new file mode 100755
index 0000000000..58c643e236
--- /dev/null
+++ b/challenge-140/mattneleigh/perl/ch-1.pl
@@ -0,0 +1,212 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use English;
+
+################################################################################
+# Begin main execution
+################################################################################
+
+my @pairs = (
+    # Given cases
+    [
+        11,
+         1
+    ],
+    [
+        101,
+          1
+    ],
+    [
+        100,
+         11
+    ],
+
+    # Additional test cases
+    [
+        1001011011,
+        1011001011
+    ]
+);
+my $pair;
+
+foreach $pair (@pairs){
+    my ($a, $b) = map(binaryNumber->new($_), @{$pair});
+
+    # This formatting will accomodate numbers
+    # up to 16 bits
+    printf(
+        "   %+16s\n + %+16s\n ------------------\n   %+16s\n\n",
+        $a,
+        $b,
+        $a + $b
+    );
+
+}
+
+exit(0);
+################################################################################
+# End main execution; subroutines follow
+################################################################################
+
+
+################################################################################
+# Begin package binaryNumber
+# A minimal class set up to meet the requirement for operator overloading when
+# adding decimal-coded binary numbers; for brevity, only those methods required
+# for that purpose have been implemented.
+################################################################################
+package binaryNumber;
+
+# Overload operators for getting string
+# representations and adding
+use overload (
+    '""' => "getValue",
+    '+'  => "add"
+);
+
+
+
+################################################################################
+# Create a new binaryNumber object
+# Takes one argument:
+# * The decimal-coded binary number to store, which must consist solely of 1's
+#   and 0's- this is best thought of as a string rather than a numerical
+#   argument
+# Returns on success:
+# * A ref to a binaryNumber object
+# Returns on error:
+# * undef if the argument is not valid
+################################################################################
+sub new{
+    my $class = shift();
+    my $value = shift();
+
+    # Make sure the value is just a string of
+    # ones and zeros
+    return(undef)
+        unless($value =~ m/^[01]+$/);
+
+    return(
+        bless(
+            {
+                # Force the value to be the numerical
+                # representation
+                value => $value + 0
+            },
+            $class
+        )
+    );
+
+}
+
+
+
+################################################################################
+# Get the value stored in a binaryNumber object
+# Takes no arguments
+# Returns:
+# * The decimal-coded binary number stored in the binaryNumber object, which
+#   should be interpreted as a string of ones and zeros; further processing is
+#   required to convert this to a proper numerical value if needed
+################################################################################
+sub getValue{
+    my $self = shift();
+
+    return($self->{value});
+
+}
+
+
+
+################################################################################
+# Add two binaryNumber objects arithmetically
+# Takes one argument:
+# * A ref to the binaryNumber object whose value is to be added to the one from
+#   the object from which this method is invoked; the latter object's value
+#   will NOT be altered
+# Returns on success:
+# * A ref to a binaryNumber object containing the sum of the original two
+#   objects' values
+# Returns on error:
+# * undef if its argument is not a ref to a binaryNumber object
+# Example:
+# $c = $a->add($b);  # Where $a and $b are refs to binaryNumber objects and $c
+#                    # will be populated with one that contains the sum
+################################################################################
+sub add{
+    use Scalar::Util qw(blessed);
+
+    my $self = shift();
+    my $addend = shift();
+
+    return(undef)
+        unless(blessed($addend) && $addend->isa('binaryNumber'));
+
+    # Store the digits individually- but
+    # reversed (least-significant bit first)
+    my @self_digits = reverse(split("", $self->{value}));
+    my @addend_digits = reverse(split("", $addend->getValue()));
+    my $max;
+    my $i;
+    my $carry = 0;
+    my @sum_digits;
+
+    # Get the length of the longer list of
+    # digits
+    $max =
+        scalar(@self_digits) > scalar(@addend_digits)
+        ?
+        scalar(@self_digits)
+        :
+        scalar(@addend_digits);
+
+    # Loop over the longest list, adding
+    # as we go
+    for($i = 0; $i < $max; $i++){
+        my $self_digit = $self_digits[$i];
+        my $addend_digit = $addend_digits[$i];
+
+        # Bitwise-ANDing by 0x01 forces the
+        # digits to take on their numerical
+        # representation for Boolean algebra;
+        # use 0 if we've run out of digits in
+        # the shorter of the lists
+        $self_digit = defined($self_digit) ? $self_digit & 0x01 : 0;
+        $addend_digit = defined($addend_digit) ? $addend_digit & 0x01 : 0;
+
+        # Store the results of addition
+        push(
+            @sum_digits,
+            $self_digit ^ $addend_digit ^ $carry
+        );
+
+        # Set the carry bit if two or more out of
+        # the three potential addend bits
+        # (including the carry bit itself) are
+        # true
+        $carry = $carry ^ $self_digit ? $addend_digit : $carry;
+    }
+
+    # Add a leading 1 if there's a carry bit
+    # left over
+    push(@sum_digits, 1) if($carry);
+
+    # Reverse (or un-reverse...) the sum
+    # digits and generate a new binaryNumber
+    return(
+        binaryNumber->new(join("", reverse(@sum_digits)))
+    );
+
+}
+
+
+
+1;
+################################################################################
+# End package binaryNumber
+################################################################################
+
+
+
diff --git a/challenge-140/mattneleigh/perl/ch-2.pl b/challenge-140/mattneleigh/perl/ch-2.pl
new file mode 100755
index 0000000000..5b61995574
--- /dev/null
+++ b/challenge-140/mattneleigh/perl/ch-2.pl
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use English;
+
+################################################################################
+# Begin main execution
+################################################################################
+
+my @arguments = (
+    [ 2, 3, 4 ],
+    [ 3, 3, 6 ]
+);
+
+foreach(@arguments){
+    printf(
+        "Input: \$i = %d; \$j = %d; \$k = %d\n",
+        $_->[0], $_->[1], $_->[2]
+    );
+    printf(
+        "Output: %d\n\n",
+        kth_element_multiplication_table(@{$_})
+    );
+}
+
+exit(0);
+################################################################################
+# End main execution; subroutines follow
+################################################################################
+
+
+################################################################################
+# Find a specified member of a sorted multiplication table
+# Takes three arguments:
+# * The maximum, I, from one series of multiplicands
+# * The maximum, J, from one series of multiplicands
+# * The number, K, of the desired product within the sorted multiplication
+#   table
+# Returns on success:
+# * The Kth element of the sorted table
+# Returns on error:
+# * undef if K is outside the table (there are not at least K elements in the
+#   table)
+################################################################################
+sub kth_element_multiplication_table{
+    my $i = shift();
+    my $j = shift();
+    my $k = shift();
+
+    my @products;
+    my $j_orig = $j;
+
+    # Generate a list of products
+    while($i--){
+        $j = $j_orig;
+        while($j--){
+            push(@products, ($i + 1) * ($j + 1));
+        }
+    }
+
+    # Sort the products in ascending order
+    # and return the Kth element of the list
+    @products = sort({$a <=> $b} @products);
+
+    return($products[$k - 1]);
+
+}
+
+
+
-- 
cgit 


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

---
 challenge-140/mattneleigh/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-140/mattneleigh/perl/ch-1.pl b/challenge-140/mattneleigh/perl/ch-1.pl
index 58c643e236..362439de69 100755
--- a/challenge-140/mattneleigh/perl/ch-1.pl
+++ b/challenge-140/mattneleigh/perl/ch-1.pl
@@ -34,7 +34,7 @@ my $pair;
 foreach $pair (@pairs){
     my ($a, $b) = map(binaryNumber->new($_), @{$pair});
 
-    # This formatting will accomodate numbers
+    # This formatting will accommodate numbers
     # up to 16 bits
     printf(
         "   %+16s\n + %+16s\n ------------------\n   %+16s\n\n",
-- 
cgit 


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

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

diff --git a/challenge-140/mattneleigh/perl/ch-1.pl b/challenge-140/mattneleigh/perl/ch-1.pl
index 362439de69..c55b1d999e 100755
--- a/challenge-140/mattneleigh/perl/ch-1.pl
+++ b/challenge-140/mattneleigh/perl/ch-1.pl
@@ -141,6 +141,8 @@ sub add{
     my $self = shift();
     my $addend = shift();
 
+    # Make sure we're actually adding a
+    # binaryNumber object
     return(undef)
         unless(blessed($addend) && $addend->isa('binaryNumber'));
 
-- 
cgit 


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 


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

---
 challenge-140/mattneleigh/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-140/mattneleigh/perl/ch-1.pl b/challenge-140/mattneleigh/perl/ch-1.pl
index d6aac51cff..e8baa8914e 100755
--- a/challenge-140/mattneleigh/perl/ch-1.pl
+++ b/challenge-140/mattneleigh/perl/ch-1.pl
@@ -149,7 +149,7 @@ sub add{
     # Extract the individual digits and store
     # them in reverse order (least
     # significant bit first)
-    my @self_digits = reverse(split("", $self->{value}));
+    my @self_digits = reverse(split("", $self->getValue()));
     my @addend_digits = reverse(split("", $addend->getValue()));
     my $max;
     my $i;
-- 
cgit 


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

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

diff --git a/challenge-140/mattneleigh/perl/ch-1.pl b/challenge-140/mattneleigh/perl/ch-1.pl
index e8baa8914e..3990634a66 100755
--- a/challenge-140/mattneleigh/perl/ch-1.pl
+++ b/challenge-140/mattneleigh/perl/ch-1.pl
@@ -71,8 +71,8 @@ use overload (
 ################################################################################
 # Create a new binaryNumber object
 # Takes one argument:
-# * The decimal-coded binary number to store, which must consist solely of 1's
-#   and 0's- this is best thought of as a string rather than a numerical
+# * The decimal-coded binary number to store, which must consist solely of ones
+#   and zeros- this is best thought of as a string rather than a numerical
 #   argument
 # Returns on success:
 # * A ref to a binaryNumber object
@@ -133,7 +133,8 @@ sub getValue{
 # * undef if its argument is not a ref to a binaryNumber object
 # Example:
 # $c = $a->add($b);  # Where $a and $b are refs to binaryNumber objects and $c
-#                    # will be populated with one that contains the sum
+#                    # will be populated with one that contains the sum of the
+#                    # original two
 ################################################################################
 sub add{
     use Scalar::Util qw(blessed);
-- 
cgit