请教一个跳出while和repeat的函数

DCMZ

比如我在用while循环repeat循环式，当达到某种条件，则跳出该循环，请问是什么函数呢

Andyhon

当达到某种条件...
用 (while 条件 ...)
repeat 则不适用

zyhandw

还是直接贴出代码来，更容易解决问题

DCMZ

Andyhon 发表于 2012-11-19 16:14
当达到某种条件...
用 (while 条件 ...)
repeat 则不适用

哦，好的，谢谢哈

mandala

可以比较一下这两段小程序，应该可以解决你的问题。其中aaa可以跳出repeat，继续执行下一语句。

至于while么本来就会跳出的……不然要while干什么。

2. (defun c:bbb  ()
   
3.   (setq list1 '(1 2 3 4 5 6 7 8 9))
   
4.   (setq j 0
   
5. x 7) ;_ 结束setq
   
6.   (repeat (length list1)
   
7.     (setq j (1+ j))
   
8.     (if (= j x)
   
9.       (exit)) ;_ 结束if
   
10.     )
    
11.   (print j))
    
12. 
    

(defun c:bbb  ()<br />   (setq list1 '(1 2 3 4 5 6 7 8 9))<br />   (setq j 0<br /> x 7) ;_ 结束setq<br />   (repeat (length list1)<br />     (setq j (1+ j))<br />     (if (= j x)<br />       (exit)) ;_ 结束if<br />     )<br />   (print j))<br /> <br />

2. 
   
3. (defun c:aaa  ()
   
4.   (setq list1 '(1 2 3 4 5 6 7 8 9))
   
5.   (setq catchit (vl-catch-all-apply
   
6.     '(lambda ()
   
7.        (setq j 0
   
8.       x 7) ;_ 结束setq
   
9.        (repeat (length list1)
   
10.          (setq j (1+ j))
    
11.          (if (= j x)
    
12.     (exit)) ;_ 结束if
    
13.          ) ;_ 结束repeat
    
14.        ) ;_ 结束lambda
    
15.     ) ;_ 结束vl-catch-all-apply
    
16. )
    
17.   (print j))

<br /> (defun c:aaa  ()<br />   (setq list1 '(1 2 3 4 5 6 7 8 9))<br />   (setq catchit (vl-catch-all-apply<br />     '(lambda ()<br />        (setq j 0<br />       x 7) ;_ 结束setq<br />        (repeat (length list1)<br />          (setq j (1+ j))<br />          (if (= j x)<br />     (exit)) ;_ 结束if<br />          ) ;_ 结束repeat<br />        ) ;_ 结束lambda<br />     ) ;_ 结束vl-catch-all-apply<br /> )<br />   (print j))

ll_j

用while比较好，你的这种情况可以用：

1. (while (or (< j (length list1)) (/= j x))
   
2.   ...

(while (or (< j (length list1)) (/= j x))<br />   ...

一般说来，不到不得已时，不要使用exit函数退出，而是让程序每个“表”都有序地执行完毕退出。

DCMZ

好的，谢谢大家，学会exit了，还不知道这个函数

Andyhon

(defun C:Test ()
   (setq i 9)
   (repeat i
     (if (< i 4) (exit))
     (setq i (1- i))
   )
   (princ i)    ; 请关注这句 或之后的代码
)

阿然

这个也是一直想知道的，不过最后还是用while比较合适，(exit)会返回; 错误: quit / exit abort，很多时候就不适合了