2016 Update

Task/Balanced-brackets/ZX-Spectrum-Basic/balanced-brackets.zx

@@ -0,0 +1,17 @@
+10 FOR n=1 TO 7
+20 READ s$
+25 PRINT "The sequence ";s$;" is ";
+30 GO SUB 1000
+40 NEXT n
+50 STOP
+1000 LET s=0
+1010 FOR k=1 TO LEN s$
+1020 LET c$=s$(k)
+1030 IF c$="[" THEN LET s=s+1
+1040 IF c$="]" THEN LET s=s-1
+1050 IF s<0 THEN PRINT "Bad!": RETURN
+1060 NEXT k
+1070 IF s=0 THEN PRINT "Good!": RETURN
+1090 PRINT "Bad!"
+1100 RETURN
+2000 DATA "[]","][","][][","[][]","[][][]","[]][[]","[[[[[]]]]][][][]][]["