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</