如何能在本函数内实现return的效果或者goto的效果呢？

Lispboy

ll_j 发表于 2013-5-9 10:06

                               
登录/注册后可看大图

下面这是前一版钢筋表计算程序ca.lsp的主程序，在进行选项设置时使用了“递归”，并在设置结束后就进行了后 ...

这个程序我怎么感觉好像是为了递归而递归尼？ 递归不应该这样用的，程序里面仅仅是交互时候参数的判断选择，应该在一个WHILE循环里面做。

递归的算法流程应该是清晰的，就是在满足某个条件时都要固定重复要做一件事。递归的语句前应该是其他条件满足时候处理的代码，遇到"最后这个条件“时候又要重复做上面的事情。

一般都是写成函数，不应该交互中断的处理过程，用户交互就可能造成程序的破坏，如堆栈空间的破坏。

[pcode=lisp,true]
(while (and
         (progn
           (princ (strcat "\n\n当前为" ca:row "列模式; 长度单位 " ca:c_m
                          "；列间距 " (rtos ca:h_ 2 1) "; 文本字高 "
                          (rtos ca:hh 2 2) "; 对齐方式 " ca:jm "。\n"
                  )
           )
           (initget 1 "U N C F H J")
           (setq pt1 (getpoint (strcat "列数N/单位U/变更列间距C/自由列间距F/文本字高H/对齐方式J/<给出钢筋总长"
                                       ca:jm "对齐点>: "
                               )
                     )
           )
         )
         (cond
           ((= pt1 "U")
             (if (= ca:c_m "cm")
               (setq ca:c_m "mm"
                     ca:cmm 0.001
               )
               (setq ca:c_m "cm"
                     ca:cmm 0.01
               )
             )
           )
           ((= pt1 "N")
             (if (= ca:r_w 3)
               (setq ca:r_w 2
                     ca:row "二"
               )
               (setq ca:r_w 3
                     ca:row "三"
               )
             )
           )
           .......
           (t
           )
         )
       )
)

[/pcode]

ll_j

Lispboy 发表于 2013-5-9 13:04

                               
登录/注册后可看大图

这个程序我怎么感觉好像是为了递归而递归尼？ 递归不应该这样用的，程序里面仅仅是交互时候参数的判断选择 ...

不是为了递归而递归，最早完成这段程序（或类似代码）的时候，我还不太清楚递归概念，只听说过这个词而已，当时论坛也稀有谈及，只是感觉使用方便，并且用惯了goto，根本没想到许多。
说起来，当时也知道Lisp括号是严格匹配的，但根本没想到那么多深层的意义，只是使用而已，多年不搞，最近又拿起来玩玩，才又多了点感悟。

XDSoft

ll_j 发表于 2013-5-9 14:22

                               
登录/注册后可看大图

不是为了递归而递归，最早完成这段程序（或类似代码）的时候，我还不太清楚递归概念，只听说过这个词而已 ...

顿显大师风范。

GTJ116600

呵呵，牛人呀。

maiqi816

非常好非常好非常好

maiqi816

非常好非常好非常好