Initial data commit

Task/Balanced-brackets/Perl/balanced-brackets-1.pl

@@ -0,0 +1,15 @@
+sub generate {
+    my $n = shift;
+    my $str = '[' x $n;
+    substr($str, rand($n + $_), 0) = ']' for 1..$n;
+    return $str;
+}
+
+sub balanced {
+    shift =~ /^ (\[ (?1)* \])* $/x;
+}
+
+for (0..8) {
+    my $input = generate($_);
+    print balanced($input) ? " ok:" : "bad:", " '$input'\n";
+}

Task/Balanced-brackets/Perl/balanced-brackets-2.pl

@@ -0,0 +1,3 @@
+sub balanced {
+    shift =~ /^ ( [^\[\]]++ | \[ (?1)* \] )* $/x;
+}

Task/Balanced-brackets/Perl/balanced-brackets-3.pl

@@ -0,0 +1,5 @@
+use Regexp::Common 'balanced';
+my $re = qr/^$RE{balanced}{-parens=>'[]'}$/;
+sub balanced {
+  return shift =~ $re;
+}

Task/Balanced-brackets/Perl/balanced-brackets-4.pl

@@ -0,0 +1,8 @@
+sub balanced {
+    my $depth = 0;
+    for (split //, shift) {
+        if    ($_ eq '[') { ++$depth }
+        elsif ($_ eq ']') { return if --$depth < 0 }
+    }
+    return !$depth
+}