Execute Brain****/TI-83 BASIC: Difference between revisions

Content added Content deleted
(You can add 0's one at a time to extend the array as needed)
(Fixed a few copy errors, I wish TI-BASIC had custom variable names for strings...)
Line 38: Line 38:
A+1→A
A+1→A
While A≤length(Str3) and B≠0
While A≤length(Str3) and B≠0
If sub(Str1,A,1)="["
If sub(Str3,A,1)="["
B+1→B
B+1→B
If sub(Str1,A,1)="]"
If sub(Str3,A,1)="]"
B-1→B
B-1→B
A+1→A
A+1→A
Line 50: Line 50:
A-1→A
A-1→A
While A≥0 and B≠0
While A≥0 and B≠0
If sub(Str1,A,1)="["
If sub(Str3,A,1)="["
B-1→B
B-1→B
If sub(Str1,A,1)="]"
If sub(Str3,A,1)="]"
B+1→B
B+1→B
A-1→A
A-1→A
Retrieved from "https://rosettacode.org/wiki/Execute_Brain****/TI-83_BASIC"