取表一部分 nth

自贡黄明儒

;;除去表一部分
;;(PartListRemove 2 3 '(1 2 3 4 5))
(defun PartListRemove (from to lst / I L)
  (setq i -1)
  (foreach x lst
    (setq i (1+ i))
    (cond ((or (< i from) (> i to)) (setq l (cons x l))))
  )
  (REVERSE l)
)

;;取表一部分
;;(PartList1 2 3 '(1 2 3 4 5))=>(3 4)
(defun PartList1 (from to lst / I L)
  (setq i -1)
  (foreach x lst
    (setq i (1+ i))
    (cond ((and (>= i from) (<= i to)) (setq l (cons x l))))
  )
  (REVERSE l)
)
;;取表一部分
;;(PartList2 2 3 '(1 2 3 4 5))=(3 4)
(defun PartList2 (from to lst / i L)
  (setq i -1)
  (mapcar '(lambda (x)
             (setq i (1+ i))
             (cond ((and (>= i from) (<= i to)) (setq l (cons x l))))
           )
          lst
  )
  (REVERSE l)
)
;;取表一部分
;;(PartList3 2 3 '(1 2 3 4 5))=(3 4)
(defun PartList3 (from to lst / I L X)
  (setq i -1)
  (while (and (setq x (car lst))
              (setq lst (cdr lst))
              (< i to)
         )
    (setq i (1+ i))
    (cond((>= i from)(setq l (cons x l))))
  )
  (REVERSE l)
)
;;估计这个快些,纯属猜测
;;取表一部分
;;(PartList4 2 3 '(1 2 3 4 5))=(3 4)
(defun PartList4 (from to lst / L X)
  (repeat from (setq lst (cdr lst)))
  (repeat (1+ (- to from)) (setq l (cons (car lst) l)) (setq lst (cdr lst)))
  (REVERSE l)
)

水仙的错

下载下来看看好用不

vlisp2012

坐在沙发上学！

smartstar

向长老学习！

fan_zh

老规矩,先回后下!!!!!!!

USER2128

支持一下！

q3_2006

黄工看来是不可能戒掉LSP了....

haoryh

黄兄这个是用来做啥的？

xujinhua

正有需要啊..谢谢楼主

yoyoho

向黄老师学习!

wzg356

看看隐藏啥也