Data commit

Task/Balanced-brackets/Bracmat/balanced-brackets.bracmat

@@ -0,0 +1,27 @@
+( (bal=|"[" !bal "]" !bal)
+& ( generate
+  =   a j m n z N S someNumber
+    .   !arg:<1&
+      |   11^123+13^666+17^321:?someNumber
+        & (!arg:?n)+1:?N
+        & :?S
+        &   whl
+          ' (!n+-1:~<0:?n&"[" "]" !S:?S)
+        &   whl
+          ' ( !someNumber:>0
+            & mod$(!someNumber.!N):?j
+            & div$(!someNumber.!N):?someNumber
+            & !S:?a [!j ?m [!N ?z
+            & !z !m !a:?S
+            )
+        & !S
+  )
+& 0:?L
+&   whl
+  ' ( generate$!L:?S
+    & put$(str$(!S ":"))
+    &   out
+      $ (!S:!bal&Balanced|"Not balanced")
+    & !L+1:<11:?L
+    )
+);