AutoLisp中的递归使用

ll_j · 发表于 2013-8-11 13:39:17

本帖最后由 ll_j 于 2013-8-11 13:40 编辑

这是个人对递归使用的看法，原创，因为太长，所以以pdf格式上传。

20060510412 · 发表于 2019-2-27 09:43:06

谢谢楼主分享，楼主是个热心人！

magicheno · 发表于 2024-1-28 22:43:59

感谢大佬的分享，学习了

hubeiwdlue · 发表于 2024-2-3 16:44:14

谢谢楼主分享。

自贡黄明儒 · 发表于 2013-8-11 13:44:06

顶，一是要好好向楼主学习，感射共享！

wowan1314 · 发表于 2013-8-11 14:01:02

递归这东西，我确实是没理解透彻。

特来学习，感谢分享。

langjs · 发表于 2013-8-11 20:23:27

谢谢，受益匪浅

ll_j · 发表于 2013-8-12 12:42:12

顶一顶！！

自贡黄明儒 · 发表于 2013-8-12 15:18:57

根据你的分析，你上面提到的BAtte:lst->str,是不是改成如下定义更好些呢？
(defun BAtte:lst->str (lst del)
(if (not (cdr lst))
(car lst)
(strcat (car lst) del (BAtte:lst->str (cdr lst) del))
)
)

ll_j · 发表于 2013-8-12 16:17:05

自贡黄明儒发表于 2013-8-12 15:18
根据你的分析，你上面提到的BAtte:lst->str,是不是改成如下定义更好些呢？
(defun BAtte:lst->str (lst d ...

尾递归不是说一定要在书面上把递归写在最后，而是实际运算中应该在最后，你这样表达和原本的写法是相同的，但判断多了一层not，是不合算的，自由判断后两个分支，非此即彼，而且只能有一个，所以，那个写在前面是无所谓的。
顺便说一下，这个函数就是从你的帖子里面截出来的。

ll_j · 发表于 2013-8-14 09:19:03

沉得很快，最后再顶一次。

自贡黄明儒 · 发表于 2013-8-14 13:21:23

这个递归太深了，所以一般都不太关注。比如我写的〈钢板重量加法器〉，因为简单，所以顶的人要多一些

434939575 · 发表于 2014-2-27 22:16:49

难理解的知识。学习了！

账号		自动登录	找回密码
密码			注册

[经验] AutoLisp中的递归使用

本帖子中包含更多资源

评分

点评