18 lines
404 B
Plaintext
18 lines
404 B
Plaintext
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 "[]","][","][][","[][]","[][][]","[]][[]","[[[[[]]]]][][][]][]["
|