[编程交流] 从列表中删除项目

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] remove_items  [b][color=RED]([/color][/b]lst items[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b]
   [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b]j[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]member[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-position[/color][/b] j lst[b][color=RED])[/color][/b] items[b][color=RED])[/color][/b][b][color=RED])[/color][/b] lst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=BLACK]([/color][/b]defun delatom [b][color=FUCHSIA]([/color][/b]a l / tmp[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while l
    [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]equal a [b][color=BLUE]([/color][/b]car l[b][color=BLUE])[/color][/b] 1e-11[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
        [b][color=MAROON]([/color][/b]setq tmp [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]car l[b][color=BLUE])[/color][/b] tmp[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
    [b][color=NAVY]([/color][/b]setq l [b][color=MAROON]([/color][/b]cdr l[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]reverse tmp[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]setq tl '[b][color=FUCHSIA]([/color][/b][b][color=NAVY]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=NAVY])[/color][/b] 234 [color=#2f4f4f]"ABC"[/color] 456.78 sym [b][color=NAVY]([/color][/b]10 0 0 1[b][color=NAVY])[/color][/b] [color=#2f4f4f]"DEF"[/color][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]prin1 [b][color=FUCHSIA]([/color][/b]delatom [color=#2f4f4f]"ABC"[/color] tl[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

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

(defun copy-tree (x)
 ;; Return an exact copy of a given list.
 ;; (nested lists are this procedures speciality.)
 ;;
 ;; EX: (copy-tree '(1 2 (3 (4 5) 6 (nil)) 7 (()))
 ;;  > (1 2 (3 (4 5) 6 (nil)) 7 (())
 (if (atom x)                   ; If "x" is only an item, not a list,
   x                            ; return the item...else,
   (cons (copy-tree (car x))    ; build a list, sending the next item
                                ; back thru itself along with
         (copy-tree (cdr x))    ; the remander of the items,
                                ; via backtrace.
                                ;
                                ; NOTE:
                                ; last fuction `cons' returns assembled
                                ; list of items or exact copy of what
                                ; was passed to this procedure.
         )
   )
 )

5