Cómo deshacerse de los duplicados en una lista, pero mantenga el orden

Question

Estoy usando Estudiante intermedio con Lambda en DrRacket, me preguntaba cómo se eliminarían los duplicados en una lista, mientras se mantiene el orden. Por ejemplo, (remove-dup (list 2 5 4 5 1 2)) produciría (list 2 5 4 1). Hasta ahora, tengo esto:

(define (remove-duplicates lst) 
    (cond 
    [(empty? lst) empty] 
    [(member? (first lst) (rest lst)) 
    (remove-duplicates (rest lst))] 
    [else (cons (first lst) (remove-duplicates (rest lst)))])) 

, pero hay un problema ya que no mantiene el orden. ¿Alguien me puede apuntar en la dirección correcta? Gracias por tu tiempo.

Answer 1

SRFI-1 tiene delete-duplicates, aunque es ineficaz. (No estoy muy familiarizado con la raqueta, pero seguramente tiene SRFI-1, y la fuente ...)

http://srfi.schemers.org/srfi-1/srfi-1.html#delete-duplicates

Answer 2

Ejecutar secuencialmente por la lista, la inserción de cada elemento en una tabla hash o de otro diccionario. Si intenta insertar un elemento que ya está en la tabla hash, no lo agregue a la lista saliente.

Answer 3

Si su objetivo es conseguir el funcionamiento de la funcionalidad, y no una pregunta tarea, entonces no tiene que hacer nada, sólo tiene que utilizar remove-duplicates:

Welcome to Racket v5.2. 
-> (remove-duplicates (list 2 5 4 5 1 2)) 
'(2 5 4 1) 

Answer 4

Lo que hay que hacer es comparar a la inversa ordena todo el tiempo Puede usar la función reverse que devuelve una lista en orden inverso. De esta forma, siempre eliminarás la segunda ocurrencia + de un elemento y no el primero. Aquí hay un ejemplo, sin embargo, está usando let y if y no una expresión cond.

http://www.cs.bgu.ac.il/~elhadad/scheme/duplicates.html

Buena suerte con su tarea :)

Answer 5

no estoy seguro si esto es la tarea, pero en caso de que sea voy a publicar sólo la idea. Si no es así dime y puedo poner una solución aquí.

Lo que necesita es realizar un seguimiento de los elementos únicos que encuentre, puede hacerlo utilizando una lista auxiliar, como un acumulador, para realizar un seguimiento de los que encontró hasta el momento.

Cada vez que mira otro elemento, compruebe si está en la lista auxiliar. En caso de que no sea agregarlo a la lista auxiliar.

Terminará con un orden inverso al que está tratando de encontrar, para que pueda (invertir) y tendrá su respuesta.

Answer 6

hmm sólo tenía un examen de la raqueta hace poco,:/

el 'estándar' remove-duplicates funciona bien, pero yo estaba usando bastante-grande en DrRacket por lo que tuvo que ser cargado mediante (require racket/list)

Aquí se presenta una forma alternativa :)

mediante mutación (no realmente en el espíritu de la raqueta, pero .. funciona.)

(define (set l) 
     (define the-set '()) 
      (begin (for-each 
         (lambda (x) 
          (if (member x the-set) 
           #t 
          (set! the-set (cons x the-set)))) 
         l) 
        (reverse the-set))) 

esperanza esta ayuda ... ¡salud!

Answer 7

Ésta es la solución:

(define (remove-duplicates lon) 
    (foldr (lambda (x y) (cons x (filter (lambda (z) (not (= x z))) y))) empty lon)) 

Answer 8

pregunta antiguo, pero esto es una implementación de la idea de J-Y.

(define (dup-rem lst) 
    (cond 
    [(empty? lst) empty] 
    [else (cons (first lst) (dup-rem (filter (lambda (x) (not (equal? (first lst) x))) lst)))]))