quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*updated brainfuck sample code.

Browse Source
This commit is contained in:
paladin-t 2016-01-25 18:23:52 +08:00
parent dac311f3ce
commit 295d69202f
1 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
sample/sample07.bas
View File

@ -10,23 +10,37 @@ enddef
def forward(cmd, i) def forward(cmd, i)
l = len(cmd) l = len(cmd)
while i < l and mid(cmd, i, 1) <> "]" k = 0
while i < l
h = mid(cmd, i, 1)
if h = "[" then
k = k + 1
elseif h = "]" then
k = k - 1
endif
if h = "]" and k = 0 then then
return i
endif
i = i + 1 i = i + 1
wend wend
if i < l then
i = i + 1
endif
return i return i
enddef enddef
def backward(cmd, i) def backward(cmd, i)
while i > 0 and mid(cmd, i, 1) <> "[" k = 0
while i > 0
h = mid(cmd, i, 1)
if h = "]" then
k = k + 1
elseif h = "[" then
k = k - 1
endif
if h = "[" and k = 0 then
return i
endif
i = i - 1 i = i - 1
wend wend
if i > 0 then
i = i - 1
endif
return i return i
enddef enddef