Excluyendo elementos duplicados en una lista de cadenas en elisp

Question

Dada una lista como

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

cómo iba a construir una nueva lista con las cadenas duplicadas eliminadas, así como los nil s despojados, es decir

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

Se debe conservar el orden de los elementos; es posible que la primera aparición de una cadena no se elimine.

Las listas con las que trato aquí son cortas, por lo que no es necesario utilizar nada como una tabla hash para la comprobación de exclusividad, aunque tampoco lo haría. Sin embargo, usar la funcionalidad cl no es una opción viable.

Answer 1

Aquí 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

El Common Lisp package contiene muchas funciones de manipulación de la lista, en particular, 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) 

---

Sí, me doy cuenta de que habías dicho que no desea utilizar cl. Pero sigo mencionando esto como la forma correcta de hacerlo para otras personas que puedan leer este hilo.

(¿Por qué es cl no es viable para usted de todos modos Se ha enviado con Emacs durante unos 20 años, sin contar las encarnaciones pasadas menos destacados?.)

Answer 3

Trate "Sets and Lists" en el "Lists" section del Emacs Lisp Reference Manual:

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

Answer 4

Si utiliza dash.el biblioteca, eso es todo lo que necesita:

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

dash.el está escrito por Magnar Sveen y es una gran biblioteca de manipulación de listas con muchas funciones para todo tipo de tareas. Recomiendo instalarlo si escribe un montón de código Elisp. La función -distinct quita los elementos duplicados en una lista, -non-nil elimina los elementos nil. Si bien el código anterior es suficiente, a continuación describo una aproximación alternativa, así que no dude en ignorar el resto de la publicación.

-non-nil se añadió en la versión 2.9, por lo que si por alguna razón usted tiene que utilizar versiones anteriores, otra manera de conseguir el mismo es utilizar -keep con una función de identity función, que sólo devuelve lo que se le da: (identity 1) ; => 1. La idea es que -keep guarde solo elementos, para los cuales el predicado devuelve verdadero ("no nulo" en la jerga Lisp). identity obviamente devuelve no-nil solo para los valores que no son nulos:

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