lisp表达式求值【详细解析版】

Description:
lisp是一种非常古老的计算机语言，是由约翰·麦卡锡在1960年左右创造的一种基于λ演算的函数式编程语言，其语法如下：

(+ 2 3 4 5)

表示2+3+4+5，其值为14

(* 2 3 5)

表示235，其值为30

减法可以表示为：

(- 2 3 4)

表示：2-3-4=-5

即括弧中第一个符号为运算符，后面是操作数，改运算也可以嵌套，比如

(* (+ 2 3) 6)

表示先计算2+3=5，然后再5*6=30

麦卡锡当初提出了一套理论，其核心是一个eval函数，1958年年底，麦卡锡的一个学生史蒂夫•拉塞尔 看到了eval函数的定义，意识到如果把它翻译成机器语言，就可以把Lisp解释器做出来。这在当时是非常令人吃惊的事。麦卡锡后来回忆：拉塞尔对我说：“我想把eval编成程序……”我告诉他，别把理论和实践混淆，eval只是用来读的，不是用来做计算的。但是他执意要做，并且还真的做出来了。就是说，他把我论文中的eval编译成了[IBM] 704计算机的机器码，修正了bug，然后对外宣布做出了Lisp语言的一种解释器，这倒没有说错，确实如此。所以，从那个时候开始，Lisp语言就基本上是它现在的样子了……

现在，请你完成这个任务， 给出一个lisp表达式，计算出其结果。

有四种运算符(+ - * /)，/为整数除法

例子：

(+ 1 2 3) = 6

(- 1 2 3) = -4

(* 1 2 3 4) = 24

(/ 13 3 2 2) = 1

Input:

一个lisp表达式

Output:

该表达式的值

Sample Input:

(+ 2 (* 3 4) (- 3 5))

Sample Output:

12

#include <iostream>
#include <cstring>
#include <cmath>
#include <algorithm>

using namespace std;

int getnum(int *a,int k){
    int s=0;
    for(int i=k-1;i>=0;i--){
        s+=pow(10,(k-1-i))*a[i];
    }
    return s;
}
void calculate(char *a,int l,char c,char *res){
    int k=0,n[10]={0},digit,r,time=0,tag=1;
    for(int i=0;i<l;i++){
        if(a[i]>='0'&&a[i]<='9'){
            if(a[i-1]=='-')
                tag=0;
            for(int j=i;;j++){
                n[k++]=a[j]-'0';
                i++;
                if(!(a[i]>='0'&&a[i]<='9')){
                    i--;
                    time++;
                    digit=getnum(n,k);
                    if(tag==0)
                        digit*=-1;
                    if(time==1)
                        r=digit;
                    else{
                        if(c=='+')
                            r+=digit;
                        else if(c=='-')
                            r-=digit;
                        else if(c=='*')
                            r*=digit;
                        else if(c=='/'){
                            if(digit==0)
                                break;
                            r/=digit;
                        }
                    }
                    k=0;
                    break;
                }
            }
        }
    }
    int v=0,flag=1;
    if(r<0){
        flag=0;
        r=-r;
    }
    else if(r==0)
        res[v++]='0';
    while(r){
        res[v++]=(r%10)+'0';
        r/=10;
    }
    if(flag==0)
        res[v++]='-';
    res[v]='\0';
    reverse(res,res+v);
}

int main(){
    char s[100],c,res[10]={0},t[100]={0};
    int n[10],k,low,high;
    cin.getline(s,100);
    for(int i=0;i<strlen(s);i++){
        if(s[i]=='('){
            low=i;
            c=s[i+1];
        }
        else if(s[i]==')'){
            high=i;
            calculate(s+low,high-low+1,c,res);
            strncpy(t,s,low);
            strcat(t,res);
            strcat(t,s+high+1);
            memset(s,0,sizeof(s));
            strcpy(s,t);
            memset(t,0,sizeof(t));
            memset(res,0,sizeof(res));
//            for(int j=0;j<strlen(s);j++)
//                printf("%c",s[j]);
//            printf("\n");
            i=-1;
            }
        }
    printf("%s\n",s);

    return 0;
}

测试：

(/ (* (+ 12) (+ 34)) (+ (- 56) (+ 78)))

(/ (* 12 (+ 34)) (+ (- 56) (+ 78)))
(/ (* 12 34) (+ (- 56) (+ 78)))
(/ 408 (+ (- 56) (+ 78)))
(/ 408 (+ 56 (+ 78)))
(/ 408 (+ 56 78))
(/ 408 134)
3

(+ 2 121 (* 3 4) (/ 2 (- 3 5)))

(+ 2 121 12 (/ 2 (- 3 5)))
(+ 2 121 12 (/ 2 -2))
(+ 2 121 12 -1)
134