取表一部分 nth

/db_自贡黄明儒_

;;除去表一部分
;;(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)
)

游客，如果您要查看本帖隐藏内容请回复

csharp

能退出遍历的才是最佳
和c++的 return break一样

HLCAD

支持黄大全侠！我也来凑个热闹（纯热闹）;;;hlcad:
;;取表一部分
;;(PartList5 2 3 '(1 2 3 4 5))=(3 4)
(defun PartList5 (from to Lst)
  (setq Lst (reverse Lst))
  (repeat (- (length Lst) to 1) (setq Lst (cdr Lst)))
  (setq Lst (reverse Lst))
  (repeat from (setq Lst (cdr Lst)))
Lst)

viphappy

支持,思路不错:)

viphappy

;;取表一部分
;;(PartList 2 4 '(1 2 8 4 7 3 4 5))=(2 4 3 4)
(defun PartList (from to lst )
(Vl-remove-if '(lambda(x)(or(< x from)(> x to)))lst)
)

csharp

[发布] 返回表第n---m之间的元素

viphappy

;;理解有误
;;取表一部分,  返回表第n---m之间的元素
;;(PartList 2 6 '(1 2 8 4 7 3 4 5))=(2 8 4 7 3)

(defun PartList (from to lst / L)
  (repeat (- to(1- from))
      (setq L(Cons(nth(setq to(1- to))Lst)L))
  )
)

csharp

nth本身不是一个高效函数

960322960322

黄老师的好东西太多了啊，谢谢！

qyming1996

正在找这个

yoyoho

取表一部分???

vlisp2012

好帖啊！！！！！！！！

laiz3000

不错的程匞

天若有情007

不错，学习学习         

yjch

啥也不说了，感谢楼主分享哇！