Accufuck/intarp-interpreter

function accufuck(program,input){

   var stack=[];
   var matches={};
   var ip=0;
   var tape=[];
   var p=0;
   var output=;

var acc=0; var dump=; var dumpnum=0; var dumpold=;

   for(let i=0;i<30000;i++){
       tape.push(0);
   }
   for(var i=0;i<program.length;i++){
       if(program[i]=='['){
           stack.push(i);
       }
       if(program[i]==']'){
           if(stack.length==0){
               throw new Error('Right bracket does not match left bracket');
           }
           var mt=stack.pop();
           matches[mt]=i;
           matches[i]=mt;
       }
   }
   if(stack.length!=0){
       throw new Error('Left bracket does not match right bracket');
   }
   while(ip<program.length){

if(!('+-,.[]<>*/@#'.includes(program[ip]))){

           ip++;
       }
       else if(program[ip]=='+'){

tape[p]-=tape[p]==255?255:-1

           ip++;
       }
       else if(program[ip]=='-'){

tape[p]+=tape[p]==0?255:-1

           ip++;
       }

else if(program[ip]=='*'){ acc-=acc==255?255:-1

           ip++;
       }
       else if(program[ip]=='/'){

acc+=acc==0?255:-1

           ip++;
       }

else if(program[ip]=='@'){

           acc=acc^tape[p];

tape[p]=acc^tape[p]; acc=acc^tape[p];

           ip++;
       }

else if(program[ip]=='#'){ dumpnum++; dump=; for(z=Math.max(p-8, 0);z<Math.min(p+8, 30000);z++) dump+='\tTape value #'+z+': '+tape[z]+'\n'; dump+='\tAccumulator value: '+acc+'\n\n'; if(dumpold!=dump){ document.getElementById("log").value+='Dump number #'+dumpnum+':\n'+dump; dumpold=dump; }

           ip++;
       }
       else if(program[ip]=='>'){
           p++;
           if(p>=30000){
               throw new Error('Pointer overflow');
           }
           ip++;
       }
       else if(program[ip]=='<'){
           p--;
           if(p<0){
               throw new Error('Pointer underflow');
           }
           ip++;
       }
       else if(program[ip]==','){
           if(input==){
               tape[p]=0;
           }else{
               tape[p]=input.charCodeAt(0)%256;
               input=input.slice(1);
           }
           ip++;
       }
       else if(program[ip]=='.'){
           output+=String.fromCharCode(tape[p]);
           ip++;
       }
       else if(program[ip]=='['){
           if(tape[p]==0){
               ip=matches[ip];
           }else{
               ip++;
           }
       }
       else if(program[ip]==']'){
           if(tape[p]!=0){
               ip=matches[ip];
           }else{
               ip++;
           }
       }
   }
   return output;

}