终于搞清楚cond用法了

ketxu

You can use list in this case :

1. (while
   
2.   (not
   
3.     (setq h
   
4.       (cdr
   
5.         (assoc
   
6.           (getint "\nPlease enter the numeric number: ")
   
7.           '((1 . 250)(2 . 550)(3 . -370)(4 . -740))
   
8.         )
   
9.       )
   
10.     )
    
11.   )
    
12.   (print "Requires an integer between 1 and 4.")
    
13. )

(while <br />   (not <br />     (setq h <br />       (cdr <br />         (assoc <br />           (getint "\nPlease enter the numeric number: ")<br />           '((1 . 250)(2 . 550)(3 . -370)(4 . -740))<br />         )<br />       )<br />     )<br />   )<br />   (print "Requires an integer between 1 and 4.")<br /> )

zxmmelly

评估一下需要cond来测试的几个条件，把出现频率高的写在前面，频率低的写在后面，这样可以节省运行时间

写不完的日记

你说的葵花宝典在哪里？

写不完的日记

ketxu 发表于 2019-9-30 19:03
You can use list in this case :

Are you foreigner?

写不完的日记

写不完的日记 发表于 2019-10-6 09:22
Are you foreigner?

牛逼！我还以为我喜欢去看国外的论坛，还是有外国人看我们论坛！

ketxu

写不完的日记 发表于 2019-10-6 09:22
Are you foreigner?

Yeah, i am Vietnamese. Sorry for my bad language

LPACMQ

(VL-FILENAME-DIRECTORY (cond((FINDFILE "TT.vlx"))("")))
也可以这样用，防止FINDFILE返回NIL导致代码出错，可以COND返回""空字符。这样就不会出错

写不完的日记

ketxu 发表于 2019-10-8 15:32
Yeah, i am Vietnamese. Sorry for my bad language

lisp is beyond boundries ! Welcome to the forum！

happy336

谢谢分享，支持