设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 108|回复: 5

[研讨] lisp递归中的BUG

[复制链接]

已领礼包: 1599个

财富等级: 堆金积玉

发表于 2019-11-5 20:37:39 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
案例1
;;;三分数向上取最近的数
_$ (defun fp(sum)
  (if (= sum (fix sum))
      (if (= (rem sum 3) 0)
        (setq va (/ sum 3))
                (setq va (+ (fix (/ sum 3.0)) 1))
           )
      (setq va (/ (fp (* 10.0 sum)) 10.0))
   )
)

_$ (fp 1.767)
0.589
_$ (fp 1.768)
0.59
_$ (fp 1.769)
0.589667
1.769的结果应该是0.59
案例2
;;;求L中最多有所少个a,并由a构成列表形式
_$  (defun fun1(L a)
       (if (>= L a)
               (setq va (cons a (fun1 (- L a) a)))
               (setq va nil)
            )
)
FUN1
_$ (fun1 12.9 4.3)
(4.3 4.3 4.3)
_$ (fun1 12.6 4.2)
(4.2 4.2)
_$

12.6的结果应该为(4.2 4.2 4.2)

点评

海!外直播 t.cn/RxlBLRP 禁闻视频 t.cn/RxkPOK9 小人都想扮成君子,可见君子是受人尊重的;**也想装成淑女,可见淑女是受人喜爱的;现在连朝鲜都想炫耀自己**,可见...  发表于 2019-11-13 05:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

点击这里给我发消息

已领礼包: 7044个

财富等级: 富甲天下

发表于 2019-12-6 08:32:15 | 显示全部楼层
本帖最后由 Highflybird 于 2019-12-6 08:34 编辑

你应该要检查一下局部变量的问题,局部变量在递归的时候,如果不清空,会出现一些意想不到的结果。另外还有个浮点误差的问题,会带来你说的那样的情况。

点评

_$ (defun fun1(L a) (if (>= L a) (setq va (cons a (fun1 (- L a) a))) (setq va nil) ) ) (fun1 12.6 4.2) FUN1 (4.2 4.2) _$ 清空了还是这样啊  详情 回复 发表于 2019-12-6 09:15
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1599个

财富等级: 堆金积玉

 楼主| 发表于 2019-12-6 09:15:59 | 显示全部楼层
Highflybird 发表于 2019-12-6 08:32
你应该要检查一下局部变量的问题,局部变量在递归的时候,如果不清空,会出现一些意想不到的结果。另外还有 ...

_$ (defun fun1(L a)
       (if (>= L a)
               (setq va (cons a (fun1 (- L a) a)))
               (setq va nil)
            )
)
(fun1 12.6 4.2)
FUN1
(4.2 4.2)
_$

清空了还是这样啊。

点评

(defun fun1 (L a / va) (if (> (- L a) -1e-6) (setq va (cons a (fun1 (- L a) a))) (setq va nil) ) ) 浮点带来的问题。  详情 回复 发表于 2019-12-6 09:35
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 7044个

财富等级: 富甲天下

发表于 2019-12-6 09:35:01 | 显示全部楼层
aimisiyou 发表于 2019-12-6 09:15
_$ (defun fun1(L a)
       (if (>= L a)
               (setq va (cons a (fun1 (- L a) a)))

(defun fun1 (L a / va)
  (if (> (- L a) -1e-6)
    (setq va (cons a (fun1 (- L a) a)))
    (setq va nil)
  )
)

浮点带来的问题。

点评

一直以为浮点误差仅存在于除法运算中,没想到减法中也存在。  详情 回复 发表于 2019-12-6 09:57
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1599个

财富等级: 堆金积玉

 楼主| 发表于 2019-12-6 09:57:20 | 显示全部楼层
Highflybird 发表于 2019-12-6 09:35
(defun fun1 (L a / va)
  (if (> (- L a) -1e-6)
    (setq va (cons a (fun1 (- L a) a)))

一直以为浮点误差仅存在于除法运算中,没想到减法中也存在。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-1-24 16:18 , Processed in 0.086502 second(s), 36 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表