删除列表中指定索引位置处的元素

guosheyang

       给lisp的初学者们共享个函数（高手请略过），删除列表中指定索引位置处的元素，有问题请反馈，谢谢！

;函数功能：删除列表中指定索引位置处的元素         
;参数：L 列表，index 要删除项的索引位置（从0开始）
;返回值：删除指定索引位置元素后的列表            
;测试
(ygs_del_by_index
  (setq L'(1 1 2 2 3 3 4 5 5 5 6 7 11 12 13 5 15 17 5 19 90 85 85 85 90 93 101))
  (setq index 16)
)
;主程序
(defun ygs_del_by_index(L index / NL)
(if(and(<= index(1-(length L)))(>= index 0))
  (progn
   (repeat index
     (setq nl(cons(car L )nl));新表
     (setq L(cdr L))
   )
    (append(reverse nl)(cdr L))
  )
  (princ(strcat"\n所指定的index超出列表范围," "请指定0-"(itoa (1-(length L)))"的正整数"))
)
)
代码二  简洁型

;(ygs_del_by_index L index)
(defun ygs_del_by_index(L index / I NL)
(setq nl nil i -1)
(foreach x L
   (if
    (/=(setq i(1+ i))index)
    (setq nl(cons x nl))
   )
)
  (reverse nl)
)

tianbeiyuan

谢谢:P:P顶一下

ynhh

谢谢大师的分享