Balanced brackets: Difference between revisions

Content added Content deleted

Inline

@@ Line 888: / Line 888: @@
 =={{header|Arturo}}==
+<lang rebol>isBalanced: function [s][
-<lang arturo>isBalanced: @(s){
 	cnt: 0
+	loop split s [ch][
+		if? ch="]" [
+			cnt: cnt-1
+			if cnt<0 -> return false
+		]
+		else [
+			if ch="[" -> cnt: cnt+1
+		]
+    ]
+    cnt=0
-	loop [chars s] {
+]
-		if &="]" {
-			if [cnt: cnt-1]<0 -> return false
+loop 1..10 'i [
-		} {
+	str: join map 0..(2*i)-1 [x][ sample ["[" "]"]]
-			if &="[" -> cnt: cnt+1
-		}
-    }
-    return cnt=0
-}
-loop 1..9 @(i){
-	str: [join [map 0..2*i-1 -> sample #("[" "]") ] ""]
 	prints str
-	if [isBalanced str] { print " OK" } { print " Not OK" }
-}
-</lang>
-{{out}}
+	if? isBalanced str  -> print " OK"
-<pre>[] OK
+	else 				-> print " Not OK"
-[[]] OK
+]</lang>
-[[]]][ Not OK
-]]][[]]] Not OK
-[[][][][[] Not OK
-[[][[[[]]]]] OK
-[[][[][[]][[][ Not OK
-]]][[[][[]][[[]] Not OK
-]]][][[[][][][]]]] Not OK</pre>
 =={{header|AutoHotkey}}==