i all the A langs

Task/Balanced-brackets/ANTLR/balanced-brackets.antlr

@@ -0,0 +1,19 @@
+grammar balancedBrackets ;
+
+options {
+	language = Java;
+}
+
+bb	:	{System.out.print("input is: ");} (balancedBrackets {System.out.print($balancedBrackets.text);})* NEWLINE {System.out.println();}
+	;
+balancedBrackets
+	:	OpenBracket balancedBrackets* CloseBracket
+	;
+OpenBracket
+	:	'['
+	;
+CloseBracket
+	:	']'
+	;
+NEWLINE	:	'\r'? '\n'
+	;

Task/Balanced-brackets/AutoHotkey/balanced-brackets-1.ahk

@@ -0,0 +1,32 @@
+; Generate 10 strings with equal left and right brackets
+Loop, 5
+{
+	B = %A_Index%
+	loop 2
+	{
+		String =
+		Loop % B
+			String .= "[`n"
+		Loop % B
+			String .= "]`n"
+		Sort, String, Random
+		StringReplace, String, String,`n,,All
+		Example .= String " - " IsBalanced(String) "`n"
+	}
+}
+	MsgBox % Example
+return
+
+IsBalanced(Str)
+{
+	Loop, PARSE, Str
+	{
+		If A_LoopField = [
+			i++
+		Else if A_LoopField = ]
+			i--
+		If i < 0
+			return "NOT OK"
+	}
+	Return "OK"
+}

Task/Balanced-brackets/AutoHotkey/balanced-brackets-2.ahk

@@ -0,0 +1,23 @@
+Loop, 5
+{
+	B = %A_Index%
+	loop 2
+	{
+		String =
+		Loop % B
+			String .= "[`n"
+		Loop % B
+			String .= "]`n"
+		Sort, String, Random
+		StringReplace, String, String,`n,,All
+		Example .= String " - " IsBalanced(String) "`n"
+	}
+}
+	MsgBox % Example
+return
+
+IsBalanced(Str){
+	While (Instr(Str,"[]"))
+		StringReplace, Str, Str,[],,All
+	Return Str ? "False" : "True"
+}

Task/Balanced-brackets/AutoIt/balanced-brackets.autoit

@@ -0,0 +1,28 @@
+#include <Array.au3>
+Local $Array[1]
+_ArrayAdd($Array, "[]")
+_ArrayAdd($Array, "[][]")
+_ArrayAdd($Array, "[[][]]")
+_ArrayAdd($Array, "][")
+_ArrayAdd($Array, "][][")
+_ArrayAdd($Array, "[]][[]")
+
+For $i = 0 To UBound($Array) -1
+	Balanced_Brackets($Array[$i])
+	If @error Then
+		ConsoleWrite($Array[$i] &" = NOT OK"&@CRLF)
+	Else
+		ConsoleWrite($Array[$i] &" = OK"&@CRLF)
+	EndIf
+Next
+
+Func Balanced_Brackets($String)
+	Local $cnt = 0
+	$Split = Stringsplit($String, "")
+	For $i = 1 To $Split[0]
+		If $split[$i] = "[" Then $cnt += 1
+		If $split[$i] = "]" Then $cnt -= 1
+		If $cnt < 0 Then Return SetError(1,0,0)
+	Next
+	Return 1
+EndFunc