本文介绍了一种使用宏定义和递归实现表达式解析的方法。通过定义宏来打印表达式的各个部分，并通过递归调用来处理列表类型的输入，直至所有元素被遍历完毕。文章还提供了一个测试函数用于验证实现的有效性。
(mymachine (
(defmacro demoinside (expr)
(print expr)
)
(defmacro mymachineinside (exprs)
`(if ,(eq exprs nil)
nil
(progn
(demoinside ,(car exprs))
(mymachineinside ,(cdr exprs) )
)
)
)
(mymachineinside (
(defmacro demo (expr)
(print expr)
)
(defmacro mymachine (exprs)
`(if ,(eq exprs nil)
nil
(progn
(demo ,(car exprs) )
(mymachine ,(cdr exprs) )
)
)
)
(defun test (n)
(if (eq n nil)
nil
(progn
(print (car n ) )
(test (cdr n) )
)
)
)
(test nil )
(test '(1) )
(test '(1 2) )
(test '(1 2 3) )
(test '(1 2 3 4) )
(test '(1 2 3 4 5) )
))
))
扫一扫
876
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
