From 6f3f9fd164302ca26d009185c6bf68954e8c5a77 Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Tue, 7 Jan 2020 22:56:41 -0500
Subject: ch-1.pl

---
 challenge-042/dave-jacoby/perl5/ch-2.pl | 37 +++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 challenge-042/dave-jacoby/perl5/ch-2.pl

diff --git a/challenge-042/dave-jacoby/perl5/ch-2.pl b/challenge-042/dave-jacoby/perl5/ch-2.pl
new file mode 100644
index 0000000000..2cb2d701ec
--- /dev/null
+++ b/challenge-042/dave-jacoby/perl5/ch-2.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw{ say signatures };
+no warnings qw{ experimental::signatures };
+
+# generate the string of braces
+my $string;
+for ( 0 .. 1 + int rand 9 ) {
+	$string .= int rand 2 ? '(' : ')';
+}
+
+# test if the string has matched braces
+my $t = test_braces($string);
+my $response = $t == 0 ? 'OK' : 'NOT OK';
+say qq{$string - $response};
+
+exit;
+
+# The trick is a stack. When you get a "(", 
+# you push onto the stack, and when get a ")",
+# you pop from the stack. We special-case when
+# the stack is empty and we get a ")", immediately
+# returning -1, and then returning the number of 
+# values in the array. A balanced array will return 
+# 0
+
+sub test_braces ( $string ) {
+	my @x;
+	for my $i ( split //, $string ) {
+		return -1 if !scalar @x && $i eq ')';
+		pop @x if scalar @x && $i eq ')';
+		push @x, '' if $i eq '(';
+	}
+	return scalar @x;
+}
-- 
cgit 


From 38c910924f9b7fe5c5ae004474ac971ac0ce340c Mon Sep 17 00:00:00 2001
From: Dave Jacoby <jacoby.david@gmail.com>
Date: Tue, 7 Jan 2020 22:59:15 -0500
Subject: Week 42

---
 challenge-042/dave-jacoby/perl5/ch-1.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 challenge-042/dave-jacoby/perl5/ch-1.pl

diff --git a/challenge-042/dave-jacoby/perl5/ch-1.pl b/challenge-042/dave-jacoby/perl5/ch-1.pl
new file mode 100644
index 0000000000..327ea71539
--- /dev/null
+++ b/challenge-042/dave-jacoby/perl5/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+
+use feature qw{ say };
+use strict;
+use warnings;
+
+# Too easy - sprintf gives us base conversion almost for free
+
+for my $d ( 0 .. 50 ) {
+    my $o = sprintf '%o', $d;
+    say qq{Decimal $d = Octal $o};
+}
+
-- 
cgit