Lut语言

Lut语言与Lit语言差不多，将Lit语言的后缀表达式换成普通的中缀表达式，但删去了有关数组的内容。

解释器：

#include<bits/stdc++.h>
#define pt st.top();st.pop()
using namespace std;
map<string,int>mp,lab;
namespace expr{
	struct Opt{
		char name;
		int stackInJb,stackOutJb;
		Opt(char name,int in,int out){
			this->name=name;
			this->stackInJb=in;
			this->stackOutJb=out;
		}
		bool cmp(Opt*opt){
			return this->stackOutJb>opt->stackInJb;
		}
	};
	map<char,Opt*>maps;
	void mapOpt(){
		maps['%']=new Opt('%',2,2);
		maps['/']=new Opt('/',2,2);
		maps['*']=new Opt('*',2,2);
		maps['+']=new Opt('+',1,1);
		maps['-']=new Opt('-',1,1);
		maps['(']=new Opt('(',0,4);
		maps[')']=new Opt(')',-1,-1);
	}
	int calc(string s){
		mapOpt();
		stack<int>numStack;
		stack<char>optStack;
		char exps[20]="(";
		strcat(exps,s.c_str());
		exps[strlen(exps)]=')';
		optStack.push(exps[0]);
		Opt*opt,*opt_;
		for(int i=1;exps[i];){
			if(isalpha(exps[i])){
				string names="";
				while(isalpha(exps[i]))names+=exps[i],i++;
				numStack.push(mp[names]);
			}else if(!isdigit(exps[i])){
				opt=maps[optStack.top()];
				opt_=maps[exps[i]];
				if(opt_->name==')'&&opt->name=='('){
					optStack.pop();
					i++;
					continue;
				}
				bool com=opt_->cmp(opt);
				if(com){
					optStack.push(opt_->name);
					i++;
				}else{
					char n=opt->name;
					optStack.pop();
					int res,optNum1=numStack.top();
					numStack.pop();
					int optNum2=numStack.top();
					numStack.pop();
					if(n=='*')
						res=optNum2*optNum1;
					else if(n=='+')
						res=optNum2+optNum1;
					else if(n=='-')
						res=optNum2-optNum1;
					else if(n=='/')
						res=optNum2*optNum1;
					else if(n=='%')
						res=optNum2%optNum1;
					numStack.push(res);
				}
			}else{
				int num=0;
				while(isdigit(exps[i]))num=num*10+exps[i]-48,i++;
				numStack.push(num);
			}
		}	
		return numStack.top();
	}
}
using namespace expr;
int cnt,nu[10005],pos,p;
string s[1005];
void run(int x){
	for(int i=x;i<=cnt;i++){
		if(s[i].substr(0,3)=="def"){
			string t="";
			for(int j=4;j<s[i].size();j++){
				if(s[i][j]!=' ')t+=s[i][j];
				if(s[i][j]==' '||j==s[i].size()-1)mp[t]=0,t="";
			}
		}
		else if(s[i].substr(0,5)=="print"){
			if(s[i][5]==' ')cout<<calc(s[i].substr(6));
			else if(s[i][5]=='\"')cout<<s[i].substr(6);
			else cout<<(char)calc(s[i].substr(6));
		}
		else if(s[i].substr(0,4)=="scan"){
			mp[s[i].substr(5)]=nu[++p];
		}
		else if(s[i].substr(0,2)=="eq"){
			string t="";int j=3;
			for(;s[i][j]!=' ';j++)t+=s[i][j];
			mp[t]=calc(s[i].substr(j+1));
		}
		else if(s[i].substr(0,4)=="goto"){
			run(lab[s[i].substr(5)]+1);
			return;
		}
		else if(s[i].substr(0,2)=="if"){
			string t=s[i].substr(3);
			int ppp=calc(t),j=i+1;
			for(;s[j]!="endf";j++);
			if(ppp)run(i+1);
			else run(j+1);
			return;
		}
	}
}
int main(){
	puts("--------<Lut Programming Language>--------");
	puts("Thank you for using this Programming Language!");
	puts("It\'s a little Programming Language, It\'s name is Lut.");
	puts("--------------<CODE>-------------");
	for(int i=1;;i++){
		printf("%3d. | ",i);
		getline(cin,s[++cnt]);
		if(s[cnt]=="end"){
			cnt--;
			break;
		}
	}
	puts("--------------<INPUT>-------------");
	for(int i=1;i<=cnt;i++){
		if(s[i].substr(0,3)=="lab")lab[s[i].substr(4)]=i;
		if(s[i].substr(0,4)=="scan")cin>>nu[++pos];
	}
	puts("--------------<OUTPUT>--------------");
	run(1);
	puts("\n--------------<END>--------------");
	return system("pause");
}