week 324

2 files changed, 53 insertions, 0 deletions

diff --git a/challenge-324/zapwai/perl/ch-1.pl b/challenge-324/zapwai/perl/ch-1.pl
new file mode 100644
index 0000000000..3268d8fa47
--- /dev/null
+++ b/challenge-324/zapwai/perl/ch-1.pl
@@ -0,0 +1,24 @@
+use v5.40;
+
+sub proc($r, $c, @ints) {
+    say "Input: \@ints = @ints, \$r = $r, \$c = $c";
+    die "wrong dimensions for this data" if (@ints != $r * $c);
+    my $cell = 0;
+    my @o;
+    for my $row (1 .. $r) {
+	my @x;
+	for my $col (1 .. $c) {
+	    push @x, $ints[$cell++];
+	}
+	push @o, \@x;
+    }
+    say "Output: ";
+    say "@$_" foreach (@o);
+}
+
+my @ints = (1, 2, 3, 4); my $r = 2; my $c = 2;
+proc($r, $c, @ints);
+@ints = (1, 2, 3); $r = 1; $c = 3;
+proc($r, $c, @ints);
+@ints = (1, 2, 3, 4); $r = 4; $c = 1;
+proc($r, $c, @ints);
diff --git a/challenge-324/zapwai/perl/ch-2.pl b/challenge-324/zapwai/perl/ch-2.pl
new file mode 100644
index 0000000000..38aec00ec7
--- /dev/null
+++ b/challenge-324/zapwai/perl/ch-2.pl
@@ -0,0 +1,29 @@
+use v5.40;
+use Data::PowerSet qw( powerset );
+
+sub xorsum(@a) {
+    return $a[0] if (@a == 1);
+    my $sum = 0;
+    $sum ^= $_ for (@a);
+    return $sum;
+}
+
+sub proc(@ints) {
+    say "Input:  \@ints = @ints";
+    my $pow = powerset(@ints);
+    my $tot = 0;
+    for my $p (@$pow) {
+	#print "\t\t@$p\t:";
+	my $x = xorsum(@$p);
+	#say "xorsum: $x";
+	$tot += $x;
+    }
+    say "Output: $tot";
+}
+
+my @ints = (1,3);
+proc(@ints);
+@ints = (5,1,6);
+proc(@ints);
+@ints = (3, 4, 5, 6, 7, 8);
+proc(@ints);