[编程交流] 列表的部分

(defun remove-lst-items (lst itemlst / i)
 (setq i -1)
 (vl-remove-if '(lambda (x)
                  (member (setq i (1+ i))
                          itemlst
                  )
                ) lst
 )
)
(defun hold-lst-items (lst itemlst / i)
 (setq i -1)
 (vl-remove-if-not '(lambda (x)
                  (member (setq i (1+ i))
                          itemlst
                  )
                ) lst
 )
)

 
_$ (remove-lst-items '(a b c d e f) '(0 4 5))
(B C D)
_$ (hold-lst-items '(a b c d e f) '(0 4 5))
(A E F)

(defun remove-lstmn (m n lst / j)      ; remove the items  m~n
 (setq j -1)
 (vl-remove-if '(lambda (x)
                  (and
                    (setq j (1+ j))
                    (<= m j)
                    (>= n j)
                  )
                ) lst
 )
)
(defun hold-lstmn (m n lst / j)        ; hold the items  m~n
 (setq j -1)
 (vl-remove-if-not '(lambda (x)
                      (and
                        (setq j (1+ j))
                        (<= m j)
                        (>= n j)
                      )
                    ) lst
 )
)

_$ lst
(1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1)
_$ (remove-lstmn 3 6 lst)
(1 2 3 8 9 8 7 6 5 4 3 2 1)
_$ (hold-lstmn 3 6 lst)
(4 5 6 7)
_$ 

;;  CAB  10/15/2005
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++
;;  Return a sub list starting at the nth position and
;;  with the number of items specified by num  0= all remaining items
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++
(defun nth+ (lst idx num / newlst)
 (and (or (numberp num) (setq num 0)) ; force all
      (zerop num) ; if zero
      (setq num (length lst)) ; all
 )
 (repeat num
   (setq newlst (cons (nth idx lst) newlst)
         idx (1+ idx))
 )
 (reverse (vl-remove nil newlst))
)

(defun c:test()
 (print (nth+ '(1 2 3 4 5) 0 2)) ; |-> (1 2)  
 (print (nth+ '(1 2 3 4 5) 3 2)) ; |-> (4 5)  
 (print (nth+ '(1 2 3 4 5) 4 5)) ; |-> (5)    
 (print (nth+ '(1 2 3 4 5) 6 2)) ; |-> nil    
 (print (nth+ '(1 2 3 4 5) 2 0)) ; |-> (3 4 5)
 (princ)
)

(setq alist '(a b b c))

(setq alist '(a b b c))
(setq list-index 0
     listlength (length alist))
;;; determine if two elements of the list are equal
(repeat listlength
 (setq element (nth list-index alist))
 (if (mapcar 'equal element alist) ; [b]<[color="DarkRed"] What's wrong with this[/color]?[/b]
   (setq repeated_item element)
 )
 (setq list-index (1+ list-index))
)

18