码迷,mamicode.com
首页 > 其他好文 > 详细

60行R++代码实现Lisp解释器

时间:2014-05-14 15:32:34      阅读:323      评论:0      收藏:0      [点我收藏+]

标签:blog   class   code   c   ext   int   

还没有处理lambda、上下文等,有待完善。

main
{
	for
		putsl(eval(getsl))
}

rstr eval(rstr s)
{
	return eval(tokenize(s).split(‘ ‘))
}

rstr eval(rbuf<rstr>& v)
{
	if v.get(0)!=‘(‘
		return v.get(0)
	next=find(v.sub(2))+2
	switch v.get(1)
	case ‘+‘
		return eval(v.sub(2,next)).toint+eval(v.sub(next,v.count-1)).toint
	case ‘-‘
		return eval(v.sub(2,next)).toint-eval(v.sub(next,v.count-1)).toint
	case ‘*‘
		return eval(v.sub(2,next)).toint*eval(v.sub(next,v.count-1)).toint
	case ‘/‘
		return eval(v.sub(2,next)).toint/eval(v.sub(next,v.count-1)).toint
	return ‘‘
}

int find(rbuf<rstr>& v)
{
	return r_cond(v.get(0)==‘(‘,find_sbk(v)+1,1)
}

int find_sbk(rbuf<rstr>& v)
{
	count=0
	for i in v
		if ‘(‘==v[i]
			++count
		if ‘)‘==v[i]
			--count
		if 0==count
			return i
	return v.count
}

rstr tokenize(rstr s)
{
	rstr ret
	for i in s
		if s[i]==`(
			ret+=‘ ( ‘
		elif s[i]==`)
			ret+=‘ ) ‘
		elif s[i]==0xa||s[i]==0xd||s[i]==9
			ret+=‘ ‘
		else
			ret+=s[i]
	return ret
}


60行R++代码实现Lisp解释器,布布扣,bubuko.com

60行R++代码实现Lisp解释器

标签:blog   class   code   c   ext   int   

原文地址:http://blog.csdn.net/roundsheep/article/details/25717231

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!