移除包含字母的元素

434939575

2. (defun c:tt ();移除包含字母的表元素
   
3.    (setq lis nil)
   
4.   (setq a '(14 2543 a56   6600kk b 53))
   
5.   (while a
   
6.     (setq aa (car a))
   
7.      (if (= (apply  'numberp (list aa)) t )
   
8.       (setq lis (append  lis (list aa)))
   
9.       lis
   
10.     )
    
11.     (setq a (cdr a))
    
12.   
    
13.     lis
    
14. )
    
15.   )  ;//  (14 2543 53)
    

(defun c:tt ();移除包含字母的表元素<br />    (setq lis nil)<br />   (setq a '(14 2543 a56   6600kk b 53))<br />   (while a<br />     (setq aa (car a))<br />      (if (= (apply  'numberp (list aa)) t )<br />       (setq lis (append  lis (list aa)))<br />       lis<br />     )<br />     (setq a (cdr a))<br />   <br />     lis<br /> )<br />   )  ;//  (14 2543 53)<br />

434939575

感谢：lsheng_73 大师，又学了一招

edata

发现点问题

1. (defun c:tt ()                                ;移除包含字母的表元素
   
2.   (setq lis nil)
   
3.   (setq a '(14 2543 a56 6600kk b 53))
   
4.   (while a
   
5.     (setq aa (car a))
   
6.     (if        (apply 'numberp (list aa))
   
7.       (setq lis (append lis (list aa)))
   
8.     )
   
9.     (setq a (cdr a))
   
10.    
    
11.   )
    
12.   lis
    
13. )

(defun c:tt ()                                ;移除包含字母的表元素<br />   (setq lis nil)<br />   (setq a '(14 2543 a56 6600kk b 53))<br />   (while a<br />     (setq aa (car a))<br />     (if        (apply 'numberp (list aa))<br />       (setq lis (append lis (list aa)))<br />     )<br />     (setq a (cdr a))<br />     <br />   )<br />   lis<br /> )

434939575

edata 发表于 2015-8-13 12:10
发现点问题

感谢。if判断那样用习惯了！

USER2128

(vl-remove-if-not 'numberp '(14 2543 a56   6600kk b 53))

434939575

USER2128 发表于 2015-8-14 07:42
(vl-remove-if-not 'numberp '(14 2543 a56   6600kk b 53))

这个适应范围有限吧(vl-remove-if-not 'zerop '(14 2543 0  0  6600kk b 53))
； 没有返回值

llsheng_73

434939575 发表于 2015-8-13 10:56
感谢：lsheng_73 大师，又学了一招

(setq i -1)
(vl-remove-if'(lambda(x)(>=(setq i(1+ i))5))'(1 2 3 4 5 6 7 8 9 0))

(setq i -1)
(vl-remove-if'(lambda(x)(<(setq i(1+ i))5))'(1 2 3 4 5 6 7 8 9 0))

(setq i -1)
(vl-remove-if-not'(lambda(x)(<= 3(setq i(1+ i))6))'(1 2 3 4 5 6 7 8 9 0))

(defun tt(a) (<= 3(setq i(1+ i))6))
(setq i -1)
(vl-remove-if'tt'(1 2 3 4 5 6 7 8 9 0))

434939575

llsheng_73 发表于 2015-8-14 15:36
(setq i -1)
(vl-remove-if'(lambda(x)(>=(setq i(1+ i))5))'(1 2 3 4 5 6 7 8 9 0))

感谢再次光临指导！