[Holon]

Существует список из "стрингов" к примеру

Код:

[Выделить все]

(setq  new_lst (list "hjh" "yuy" "fgf"  "fgf"  "fgf" "hjh" "hjh" "yuy"))

необходимо построить функцию так, чтобы этот список являлся
аргументом этой функции, и функция в процессе работы возвращала новый список,
без его дублирующих элементов к примеру:

Код:

[Выделить все]

( "hjh" "yuy" "fgf" )

[SetQ]

Код:

[Выделить все]

(DeFun Unique (A / B C)
  (While A
    (SetQ
      B	(Car A)
      A	(Cdr A)
      C	(If (Member B C)
	  C
	  (Cons B C)
	)
    )
  )
  C
)

[Holon]

Код:

[Выделить все]

_$ (setq new_lst(list "hjh" "yuy" "fgf"  "fgf"  "fgf" "hjh" "hjh" "yuy"))(SetQ L nil)
(While
   (SetQ A (Car new_lst) new_lst (Cdr new_lst))
   (If (Null (Member A L)) (SetQ L (Cons A L)))
)
(Prin1 L)
("hjh" "yuy" "fgf" "fgf" "fgf" "hjh" "hjh" "yuy")
nil
nil
("fgf" "yuy" "hjh")("fgf" "yuy" "hjh")
_$

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

(setq new_lst (list "hjh" "yuy" "fgf" "fgf" "fgf" "hjh" "hjh" "yuy"))

(defun _remove-dups (lst / res)
  (foreach item lst
    (if (not (member item res))
      (setq res (cons item res))
      ) ;_ end of if
    ) ;_ end of foreach
  (reverse res)
  ) ;_ end of defun

P.S. Те же яйца, вид сбоку.

[VVA]

Здесь (требуется регистрация) есть на все случаи жизни

P.S. Те же яйца, вид сбоку.

Еще вид сверху. Основное отличие - можно "чистить" вещественные числа (например координаты)

Код:

[Выделить все]

(defun mip_MakeUniqueMembersOfList  ( lst / OutList head)
;;;Удаляет одинаковые (дубликаты) элементы из списка
;;; На основе http://www.theswamp.org/index.php?topic=19128.0
;;; Изменено для сравнения вещественных чисел (equal ... 1e-6)

  (while lst
    (setq head (car lst)
          OutList (cons head OutList)
          lst (vl-remove-if '(lambda(pt)(equal pt head 1e-6))(cdr lst))
          )
    )
  (reverse OutList)
  )

[Holon]

Спасибо