[WhiteShark]

Задача: определить, уникален ли элемент списка (как вариант - количество вхождений элемента)
Дано: список

Есть ли у кого красивое решение?

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

см. member, assoc, vl-remove, vl-remove-if, vl-remove-if-not и т.п.

[WhiteShark]

Ну список функций то у меня перед глазами ) еще mapcar и apply есть ) но как-то не клеится
если делать последовательный member то проверка будет только для хвоста списка, то есть упускается начало исходного списка
assoc не подходит потому что список просто а не из пар (1 2 3 4 5 2)
vl-remove не подходит потому что удаляет все вхождения не проверяя уникальные ли они
ну а тест-функция для vl-remove-if, vl-remove-if-not есть как раз искомая функция )

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

Код:

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

 (setq item 1
      lst  '(1 2 3 4 5 6 "a" "3" "1" 1)
      ) ;_ end of setq

(length (vl-remove-if-not
          (function
            (lambda (x)
              (equal x item)
              ) ;_ end of LAMBDA
            ) ;_ end of function
          lst
          ) ;_ end of vl-remove-if-not
        ) ;_ end of LENGTH

И проверяй длину результата.

[WhiteShark]

Виноват-с, не совсем правильно сформулировал. Проверить надо присутствуют ли в списке уникальные элементы. То есть надо не взять какой то элемент и проверить присутствует ли он в списке, а взять каждый элемент списка и проверить не входит ли он в него всего 1 раз.
Есть идея, конечно, проверять после vl-remove на четность количество оставшихся элементов.. но как то не коряво это кажется

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

Разбираться мне некогда, попробуй по аналогии:

Код:

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

 (defun _kpblc-list-dublicates-remove (lst / result)
                                     ;|
*    Функция исключения дубликатов элементов списка 
*    Параметры вызова:
*	lst	обрабатываемый список
*    Возвращаемое значение: список без дубликатов соседних элементов
*    Примеры вызова:
(_kpblc-list-dublicates-remove '((0.0 0.0 0.0) (10.0 0.0 0.0) (10.0 0.0 0.0) (0.0 0.0 0.0)) nil)
((0.0 0.0 0.0) (10.0 0.0 0.0) (0.0 0.0 0.0))
|;
  (foreach x lst
    (if (not (member x result))
      (setq result (cons x result))
      ) ;_ end of if
    ) ;_ end of foreach
  (reverse result)
  ) ;_ end of defun

(defun _kpblc-list-dublicates-stay (lst / res)
                                   ;|
*    Оставляет дубликаты списка
|;
  (if (and lst (= (type lst) 'list))
    (progn
      (foreach item lst
        (if (member item (cdr (member item lst)))
          (setq res (cons item res))
          ) ;_ end of if
        ) ;_ end of foreach
      (setq res (_kpblc-list-dublicates-remove (reverse res)))
      ) ;_ end of progn
    ) ;_ end of if
  res
  ) ;_ end of defun

[Дима_]

Сообщение от WhiteShark взять каждый элемент списка и проверить не входит ли он в него всего 1 раз.

Код:

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

 (defun unic(lst)
  ((lambda (frec) (frec '() lst))
   (lambda (l1 l2)
     (if l2
         (if (not (member (car l2) l1))
             (frec (cons (car l2) l1) (cdr l2)))
         T))))

[VVA]

Одна из моих старых функций. Предназначалась, в том числе, и для работы с вещественными числами. поэтому используется сравнение до 1e-6

Код:

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

(defun mip_MakeUniqueMembersOfListWithCount  ( lst / OutList head countelt)
;; ===== mip_MakeUniqueMembersOfListWithCount =====
;; Removes the same (duplicate) items from the list
;; Quantifying the number of occurrences of an element
;; Use
;; (Mip_MakeUniqueMembersOfListWithCount '(1 2 3 1 2 3 1 1 2 2))
;; Return ((1. 4) (2. 4) (3. 2))  
;; Удаляет одинаковые (дубликаты) элементы из списка
;; с подсчетом числа вхождений элемента
;;Применение
;;(mip_MakeUniqueMembersOfListWithCount '(1 2 3 1 2 3 1 1 2 2))
;; Вернет ((1 . 4) (2 . 4) (3 . 2))
  
  (while lst
    (setq head (car lst)
	  countelt 0
          lst (vl-remove-if '(lambda(pt)(if (equal pt head 1e-6)(setq countelt (1+ countelt)) nil)) lst)
          OutList (append OutList (list (cons head countelt)))))
  OutList
  )

[WhiteShark]

Дима_, при всём уважении... как то не работает. На листе '(3 10 3 10 1) возвращает nil

[Vov.Ka]

Код:

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

 (vl-remove-if (function (lambda (e) (vl-position e (cdr (member e lst))))) lst)

[Дима_]

Сообщение от WhiteShark взять каждый элемент списка и проверить не входит ли он в него всего 1 раз ... при всём уважении... как то не работает. На листе '(3 10 3 10 1) возвращает nil

Я сделал то, что написанно Вами - функция проверяет (то есть возращает false либо true - в автолисп терминологии T nil) в зависимости от наличия дублирующих элементов - то есть если спиок "уникальный" - все элементы по 1 разу - вернет T (можете проверить), а Ваш '(3 10 3 10 1) - как бы уже дважды не уникален - и естественно возращает nil.

[WhiteShark]

Дима_, я же поправился. Нужно чтобы функция возвращала T если хоть один элемент присутствует меньше 2ух раз в списке
То есть если в списке какое то число встречается единожды, то это допустим T, а если там только числа, которые повторяются 2 и более раз, то nil.
Будьте любезны немного подправить. Вам я думаю несложно ) А я в ваш код смотрю и только диву даюсь какие в LISPе формы допустимы )

А в принципе можете и не переделывать.. Вариант от Vov.Ka - то, что надо!
Всем спасибо!