Data commit

Task/Balanced-brackets/Raku/balanced-brackets-1.raku

@@ -0,0 +1,17 @@
+sub balanced($s) {
+    my $l = 0;
+    for $s.comb {
+        when "]" {
+            --$l;
+            return False if $l < 0;
+        }
+        when "[" {
+            ++$l;
+        }
+    }
+    return $l == 0;
+}
+
+my $n = prompt "Number of brackets";
+my $s = (<[ ]> xx $n).flat.pick(*).join;
+say "$s {balanced($s) ?? "is" !! "is not"} well-balanced"

Task/Balanced-brackets/Raku/balanced-brackets-2.raku

@@ -0,0 +1,8 @@
+sub balanced($s) {
+    .none < 0 and .[*-1] == 0
+        given ([\+] '\\' «leg« $s.comb).cache;
+}
+
+my $n = prompt "Number of bracket pairs: ";
+my $s = <[ ]>.roll($n*2).join;
+say "$s { balanced($s) ?? "is" !! "is not" } well-balanced"

Task/Balanced-brackets/Raku/balanced-brackets-3.raku

@@ -0,0 +1,8 @@
+sub balanced($_ is copy) {
+    Nil while s:g/'[]'//;
+    $_ eq '';
+}
+
+my $n = prompt "Number of bracket pairs: ";
+my $s = <[ ]>.roll($n*2).join;
+say "$s is", ' not' x not balanced($s), " well-balanced";

Task/Balanced-brackets/Raku/balanced-brackets-4.raku

@@ -0,0 +1,5 @@
+grammar BalBrack { token TOP { '[' <TOP>* ']' } }
+
+my $n = prompt "Number of bracket pairs: ";
+my $s = ('[' xx $n, ']' xx $n).flat.pick(*).join;
+say "$s { BalBrack.parse($s) ?? "is" !! "is not" } well-balanced";