Week 323

2 files changed, 49 insertions, 0 deletions

diff --git a/challenge-323/zapwai/perl/ch-1.pl b/challenge-323/zapwai/perl/ch-1.pl
new file mode 100644
index 0000000000..2c1c7fe9a6
--- /dev/null
+++ b/challenge-323/zapwai/perl/ch-1.pl
@@ -0,0 +1,20 @@
+use feature qw( say signatures );
+sub proc(@operations) {
+    say "Input: \@operations = @operations";
+    my $x = 0;
+    foreach (@operations) {
+	if (/\+/) {
+	    $x++;
+	} else {
+	    $x--;
+	}
+    }
+    say "Output: $x"
+}
+
+my @operations = ("--x", "x++", "x++");
+proc(@operations);
+@operations = ("x++", "++x", "x++");
+proc(@operations);
+@operations = ("x++", "++x", "--x", "x--");
+proc(@operations);
diff --git a/challenge-323/zapwai/perl/ch-2.pl b/challenge-323/zapwai/perl/ch-2.pl
new file mode 100644
index 0000000000..96fdc101b5
--- /dev/null
+++ b/challenge-323/zapwai/perl/ch-2.pl
@@ -0,0 +1,29 @@
+use feature qw( say signatures );
+
+sub proc($income, @tax) {
+    print "Input: \$income = $income, \n\t\@tax = ";
+    print "( ";
+    print '[' . join(", ", @$_) . '] ' for (@tax);
+    say ")";
+
+    my $tax = 0;
+    my $prev = 0;
+    for (@tax) {
+	my ($cap, $perc) = @$_;
+	if ($income >= $cap) {
+	    $tax += ($cap - $prev)*$perc/100.0;
+	    $prev = $cap;
+	} else {
+	    $tax += ($income - $prev)*$perc/100.0;
+	    last;
+	}
+    }
+    say "Output: $tax";
+}
+
+my $income = 10; my @tax = ([3, 50], [7, 10], [12,25]);
+proc($income, @tax);
+$income = 2; @tax = ([1, 0], [4, 25], [5,50]);
+proc($income, @tax);
+$income = 0; @tax = ([2, 50]);
+proc($income, @tax);