前缀表达式转换为中缀表达式(lisp实现)

本文介绍了一种将前缀表达式转换为中缀表达式的LISP函数实现方法,并提供了具体的代码示例。通过该方法可以方便地进行表达式转换。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

前缀表达式转中缀表达式是比较简单的。

实现代码

实现函数代码如下:

;求得运算符号
(defun opsymbol(x)
	(cond
		((equal x 'setq) '=) ;给定的lisp函数。
		((equal x 'plus) '+)
		((equal x 'difference) '-)
		((equal x 'times) '*)
		((equal x 'quotient) '/)
		((equal x 'remainder) '\\)
		((equal x 'expt) '^)
		(t x)
	)
)

;前缀表达式转中缀表达式
(defun prefix_to_infix(L)
	(cond
		((null L) ())
		((atom L) L) ;简单情况。
		(t
			(list 	
				(prefix_to_infix (cadr L)) ;翻译第一部分
				(opsymbol (car L)) 			;查运算符号
				(prefix_to_infix (caddr L))	;翻译其余部分
			)
		)
	)
) 	

在portacle中添加定义

直接将代码复制到窗口中。如下图所示。

程序运行效果

依次输入命令

(prefix_to_infix '(times a b))

(prefix_to_infix '(TIMES PRINCIPAL (EXPT (PLUS 1.0 INTEREST) YEARS)))

(prefix_to_infix '(SETQ TOTAL (TIMES PRINCIPAL (EXPT (PLUS 1.0 INTEREST) YEARS))))

运行结果如下:

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Alexabc3000

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值