perl 5 code for week 42 challenge 2

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-042/walt-mankowski/perl5/ch-2.pl b/challenge-042/walt-mankowski/perl5/ch-2.pl
new file mode 100644
index 0000000000..04d4222e3e
--- /dev/null
+++ b/challenge-042/walt-mankowski/perl5/ch-2.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw(:5.30);
+use experimental qw(signatures);
+
+my $MAX_LEN = 10;
+
+# return a random string of parens of length $len
+sub rand_str($len) {
+    return join '', map { rand(2) < 1 ? '(' : ')' } 1..$len;
+}
+
+# return true if the parens are balanced, else false
+sub balanced($s) {
+    my $cnt = 0;
+    for my $c (split //, $s) {
+        $cnt += $c eq '(' ? 1 : -1;
+        return 0 if $cnt < 0; # too many right parens
+    }
+    return $cnt == 0;
+}
+
+for (1..100) {
+    my $rs = rand_str(int(rand($MAX_LEN)) + 1);
+    say $rs, balanced($rs) ? " - OK" : " - NOT OK";
+}