（ XD::List:split-if）根据条件分割表

marting

1. (defun xd::list:split-if (prd lst / rtn tmp err)
   
2.   (foreach itm lst
   
3.     (setq err (vl-catch-all-apply prd (list itm)))
   
4.     (if (and err (not (vl-catch-all-error-p err)))
   
5.       (setq rtn (vl-list*  (reverse tmp) rtn)           
   
6.             tmp nil
   
7.       )
   
8.       (setq tmp (cons itm tmp))
   
9.     )
   
10.   )
    
11.   (vl-remove nil (reverse (cons (reverse tmp) rtn)))
    
12. )

(defun xd::list:split-if (prd lst / rtn tmp err)<br />   (foreach itm lst<br />     (setq err (vl-catch-all-apply prd (list itm)))<br />     (if (and err (not (vl-catch-all-error-p err)))<br />       (setq rtn (vl-list*  (reverse tmp) rtn)           <br />             tmp nil<br />       )<br />       (setq tmp (cons itm tmp))<br />     )<br />   )<br />   (vl-remove nil (reverse (cons (reverse tmp) rtn)))<br /> )

命令: (setq L1 '("ABC" 1 "A" "B" -2 "CDE" 525 "D" 3 "E" "F"))
("ABC" 1 "A" "B" -2 "CDE" 525 "D" 3 "E" "F")
命令: (xd::list:split-if '(lambda(x)(= x "CDE")) l1)
(("ABC" 1 "A" "B" -2) (525 "D" 3 "E" "F"))

命令: (xd::list:split-if '(lambda(x)(numberp x)) l1)
(("ABC") ("A" "B") ("CDE") ("D") ("E" "F"))

qyming2000

学习