Added perl5 solution for ch36

2 files changed, 88 insertions, 0 deletions

diff --git a/challenge-036/yet-ebreo/perl5/ch-1.pl b/challenge-036/yet-ebreo/perl5/ch-1.pl
new file mode 100644
index 0000000000..94425694a1
--- /dev/null
+++ b/challenge-036/yet-ebreo/perl5/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+if (@ARGV != 1) {
+    say "Usage:\n\tperl ch-1.pl <VIN>\n\n";
+} else {
+    my $vin = $ARGV[0];
+    if ($vin =~ /[OIQ]/i) {
+        say "Invalid VIN";
+    } else {
+        if ($vin =~ /^[A-Z0-9]{17}$/i) {
+            say "VIN is valid";
+        } else {
+            say "Invalid VIN";
+        }
+    }
+}
\ No newline at end of file
diff --git a/challenge-036/yet-ebreo/perl5/ch-2.pl b/challenge-036/yet-ebreo/perl5/ch-2.pl
new file mode 100644
index 0000000000..0f207404be
--- /dev/null
+++ b/challenge-036/yet-ebreo/perl5/ch-2.pl
@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+my %boxes = (
+    R => {w => 1,   v => 1},
+    B => {w => 1,   v => 2},
+    G => {w => 2,   v => 2},
+    Y => {w => 12,  v => 4},
+    P => {w => 4,   v => 10}
+);
+
+if (@ARGV < 2) {
+    die "Usage:\n\tperl ch-2.pl <max_item> <max_weight>\n\n";
+}
+my $max_item    = $ARGV[0];
+my $max_weight  = $ARGV[1];
+
+my @g_keys  = keys %boxes;
+my @g_wt    = map { $boxes{$_}{w} } @g_keys;
+my @g_val   = map { $boxes{$_}{v} } @g_keys;
+my $max     = 0;
+my $mask;
+
+for my $bitmask (1..2**@g_keys) {
+
+    my ($c_weight,$c_value,$c_item_cnt) = (0) x 3;
+
+    for my $p (0..~-@g_keys) {
+        if ($bitmask & 1<<$p) {
+            
+            if ((++$c_item_cnt <= $max_item) && ($c_weight + $boxes{$g_keys[$p]}{w} <= $max_weight)) {
+                $c_value    += $boxes{$g_keys[$p]}{v};
+                $c_weight   += $boxes{$g_keys[$p]}{w};
+            } 
+        }
+    }
+    if ($c_value > $max) {
+        $max  = $c_value;
+        $mask = $bitmask;
+    }
+}
+
+say "Color  Value   Weight";
+map { ($mask & 1 << $_) && printf ("$g_keys[$_]      %02d      %02d\n", $boxes{$g_keys[$_]}{v}, $boxes{$g_keys[$_]}{w}) } (0..~-@g_keys);
+say "Max Value: $max";
+=begin
+perl .\ch-2.pl 2 15
+Color  Value   Weight
+B      02      01
+P      10      04
+Max Value: 12
+
+perl .\ch-2.pl 5 15
+Color  Value   Weight
+G      02      02
+B      02      01
+P      10      04
+R      01      01
+Max Value: 15
+
+perl .\ch-2.pl 1 15
+Color  Value   Weight
+P      10      04
+Max Value: 10
+=cut
\ No newline at end of file