floraachy/Nasal-Interpreter
1
0
Fork 0
forked from xxq250/Nasal-Interpreter
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add command line parameters & chr supports extended ASCII

Browse Source
This commit is contained in:
Valk Richard Li
2021-06-11 15:16:06 +08:00
parent 3deea632f8
commit 1ae47807eb
8 changed files with 177 additions and 152 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/bf.nas
+6 -15
View File
@@ -146,16 +146,13 @@ var mandelbrot=
>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-]<<<++++
+[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>->>>>>>>>>>>>>>>>>>>>>>>>>>>-<<<<<<[<<<<
<<<<<]]>>>]";
var hello=
"++[>++<-]>[>++<-]>[>++<-]>[>++<-]>[>++<-]>+++++++++++++++++++++++++++++++++++++
+++.---.+++++++..+++.<.>++++++++.--------.+++.------.--------.";
var bf=func(program)
{
var paper=[];
setsize(paper,131072);
for(var i=0;i<131072;i+=1)
paper[i]=0;
#for(var i=0;i<131072;i+=1)
# paper[i]=0;
var ptr=0;
var s=program;
var len=size(s);
@@ -243,16 +240,10 @@ var bf=func(program)
paper[ptr]=input()[0];
elsif(code[i][0]==out)
print(chr(paper[ptr]));
elsif(code[i][0]==jt)
{
if(paper[ptr])
i=code[i][1]-1;
}
elsif(code[i][0]==jf)
{
if(!paper[ptr])
i=code[i][1]-1;
}
elsif(code[i][0]==jt and paper[ptr])
i=code[i][1]-1;
elsif(code[i][0]==jf and !paper[ptr])
i=code[i][1]-1;
}
print('\n');
return;