Changing the function for the list

[RepCad]

Hello everyone,

I have a function for removing duplicate items from a list :

 

(defun LM:Unique (l)
  (if l
    (cons (car l) (LM:Unique (vl-remove (car l) (cdr l))))
  )
)

 

I want to change and use it on this list type : (that must compare first item of each list)
(("301" x y) ("304" x y) ("301" x y)  ("331" x y) ("345" x y) ("304" x y) ("359" x y))

>> (("301" x y) ("304" x y) ("331" x y) ("345" x y) ("359" x y))

 

   * x or y can be different and does not matter in comparison.

 

Thanks in advance.

[robierzo]

this is a possibility

 

(defun elimina ( l )
  (if l (cons (car l) (elimina (vl-remove-if '(lambda ( x ) (= (caar l)   (car x))) (cdr l)))))
)

 

Edited November 1, 2022 by robierzo

[Lee Mac]

Another -

(defun f ( l / r )
    (foreach x l (or (assoc (car x) r) (setq r (cons x r))))
    (reverse r)
)