（xd::list:member-if）支持函数的member

marting

1. (defun xd::list:member-if (f l / ff r i $zz)  (if (= (atom f) (setq r (member f l)))
   
2.     (progn (setq i -1)
   
3.            (setq ff '(lambda ($zz)
   
4.                        (setq i (1+ i))
   
5.                        (if (apply f (list $zz))
   
6.                          (setq r $zz)
   
7.                        )
   
8.                      )
   
9.            )
   
10.            (if (vl-some ff l)
    
11.              (setq r (xd::list:n+ l i))
    
12.            )
    
13.     )
    
14.   )
    
15.   r
    
16. )

(defun xd::list:member-if (f l / ff r i $zz)  (if (= (atom f) (setq r (member f l)))<br />     (progn (setq i -1)<br />            (setq ff '(lambda ($zz)<br />                        (setq i (1+ i))<br />                        (if (apply f (list $zz))<br />                          (setq r $zz)<br />                        )<br />                      )<br />            )<br />            (if (vl-some ff l)<br />              (setq r (xd::list:n+ l i))<br />            )<br />     )<br />   )<br />   r<br /> )

命令: !a
(1 2 4.01 5 2 3)
命令: (xd::list:member-if '(lambda(x)(equal x 4 1e-1)) a)
(4.01 5 2 3)

yoyoho

谢谢! marting 分享程序!!!!
(xd::list:n+ 函数搜寻不到,可否提供呢?

newer

yoyoho 发表于 2018-12-10 08:21
谢谢! marting 分享程序!!!!
(xd::list:n+ 函数搜寻不到,可否提供呢?

加载晓东通用LISP函数库，就有了
xd-lisp-lib.vlx 可以独立API，单独加载

konglong604

谢谢楼主分享这个实用的函数

marting

yoyoho 发表于 2018-12-10 08:21
谢谢! marting 分享程序!!!!
(xd::list:n+ 函数搜寻不到,可否提供呢?

去看看这个

（XD::List:Nth++）返回表指定位置开始，长度n的子表

1 个回复 - 211 次查看

2017-6-11 21:38 - marting - 开源函数库

参照和调用它，很容易写出来

yoyoho

谢谢! N版及marting 题点!!!!