---

Servus

Code:

---

Befehl: (vl-sort '(0.00 45.55 85.64 56.46 45.55) '<;)
(0.0 45.55 45.55 56.46 85.64)

Befehl: (setq #liste '((0.0 (5392.77 338915.0 173.62)) (45.55 (5428.2 338943.0
173.76)) (45.55 (5428.2 338943.0 173.76)) (56.46 (5436.57 338950.0 173.69))
(85.64 (5458.69 338969.0 173.27))))
...
Befehl: (vl-sort #liste '(lambda (#A #B) (< (car #A) (car #B))))
((0.0 (5392.77 338915.0 173.62)) (45.55 (5428.2 338943.0 173.76)) (45.55
(5428.2 338943.0 173.76)) (56.46 (5436.57 338950.0 173.69)) (85.64 (5458.69
338969.0 173.27)))

---

In der Hilfe steht, Duplikate können entfernt werden - aber wie?
Ich hätt' die doppelten gern weg.

------------------
Schöne Grüße
Ernst

www.geopaint.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(vl-sort '( 1 2 2 3 4 4 5 5 6) '< )
(1 2 3 4 5 6)

bei "komplizierteren Strukturen" mußt du wohl auf was anderes zurückgreifen.
Laufzeitmäßig hat sich wohl
(defun DT:LIST-REMOVE-DOUBLE ( LISTE  / RETURNLISTE )
  (if (=(type LISTE) 'LIST)
    (progn
      (foreach ELEMENT LISTE
        (if (not (member ELEMENT RETURNLISTE))
          (setq RETURNLISTE (cons ELEMENT RETURNLISTE))
        )
      )
      (reverse RETURNLISTE)       
    )
  )   
)

günstig rausgestellt (ungetestet).... 

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

die Hilfe sagt

Zitat:

---

Duplicate elements may be eliminated from the list.

---

das heißt, dass die doppelten Elemten vielleicht fehlen. 

Bei Integers ist das auch so. Im Gegensatz zu Reals. Wurde schon einmal diskutiert: http://ww3.cad.de/foren/ubb/Forum145/HTML/000560.shtml

Gruß
CADchup

------------------
CADmaro.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Euch beiden!

Zitat:

---

Original erstellt von CADchup:
...Wurde schon einmal diskutiert ...

---

Dort war ich auch - ist aber schon ein paar Jahre / Versionen alt. Und da es nicht primär um vl-sort ging, hab ich's eher überflogen.
Wie's aussieht ist aber nach wie vor ein 2. Arbeitsgang notwendig.

------------------
Schöne Grüße
Ernst

www.geopaint.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP