odizolowania duplikatów elementów na liście ciągów w Elisp

Question

otrzymali listę takich jak

(list "foo" "bar" nil "moo" "bar" "moo" nil "affe") 

jak bym zbudować nową listę z podwójnych strun usunięte, jak również nil s usuwane, tj

(list "foo" "bar" "moo" "affe") 

Kolejność elementów musi być zachowana - pierwsze wystąpienie ciągu znaków nie może zostać usunięte.

Lista, z którą mam do czynienia, jest krótka, więc nie ma potrzeby używania czegoś w rodzaju tabeli haszów do sprawdzania unikalności, chociaż z pewnością nie zaszkodzi. Jednak korzystanie z funkcji cl nie jest realną opcją.

Answer 1

Tu ya go:

(defun strip-duplicates (list) 
    (let ((new-list nil)) 
    (while list 
     (when (and (car list) (not (member (car list) new-list))) 
     (setq new-list (cons (car list) new-list))) 
     (setq list (cdr list))) 
    (nreverse new-list))) 

Answer 2

Common Lisp package zawiera wiele funkcji lista manipulacji, w szczególności remove-duplicates.

(require 'cl) 
(remove-duplicates (list "foo" "bar" nil "moo" "bar" "moo" nil "affe") 
        :test (lambda (x y) (or (null y) (equal x y))) 
        :from-end t) 

---

Tak, zdaję sobie sprawę, mówiłeś, że nie chcesz używać cl. Nadal jednak wspominam o tym, jako o właściwej drodze dla innych osób, które mogą czytać ten wątek.

(Dlaczego cl nie opłacalne dla Ciebie i tak To zostało wysłane z Emacs przez około 20 lat, nie licząc mniej polecanych przeszłych wcieleń?).

Answer 3

Spróbuj "Sets and Lists" w "Lists" section z Emacs Lisp Reference Manual:

(delq nil (delete-dups (list "foo" "bar" nil "moo" "bar" "moo" nil "affe"))) 

Answer 4

Jeśli używasz dash.el bibliotekę, to wszystko, czego potrzebujesz:

(-distinct (-non-nil '(1 1 nil 2 2 nil 3)) ; => (1 2 3) 

dash.el jest napisany przez Magnara Sveena i jest świetną biblioteką do manipulowania listami z wieloma funkcjami do różnych zadań. Zalecam zainstalowanie go, jeśli piszesz dużo kodu Elisp. Funkcja -distinct usuwa powielone elementy z listy, -non-nil usuwa elementy nil. Chociaż powyższy kod jest wystarczający, poniżej opisuję alternatywne podejście, więc nie wahaj się zignorować reszty postu.

-non-nil został dodany w wersji 2.9, więc jeśli z jakiegoś powodu trzeba używać starszych wersji, inny sposób na osiągnięcie samo jest użycie -keep z wbudowanym identity funkcji, która właśnie wraca cokolwiek to jest podane: (identity 1) ; => 1. Chodzi o to, że -keep przechowuje tylko te elementy, dla których predykat zwraca true ("non-nil" w żargonie Lispa). identity oczywiście zwraca wartość zerową tylko dla wartości, które nie są zerowe:

(-distinct (-keep 'identity '(1 1 nil 2 2 nil 3)) ; => (1 2 3)