---

Hallo Forum,
möchte aus dieser Liste: ("10" "10" "A 157" "A 157" "B10" "B10" "B10" "")
eine solche Liste ("10" "A 157" "B10" "") erhalten. Mit vl-sort kommt nur die 1. Liste raus. Kann mir einer auf die Sprünge helfen?

mfg
Niggemann

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

---

hi,
könnte in diese Richtung gehen...

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Hallo Niggemann,
einfach eine neue Liste erstellen, und in einer While Schleife nur die Elemente aus der ursprünglichen Liste einfügen, wenn diese in der neuen Liste noch nicht vorhanden sind.

Code:

---

(defun c:test ( / LISTE LISTE1)
  (setq liste '("10" "10" "A 157" "A 157" "B10" "B10" "B10" ""))
  (while liste
    (if (not(member (car liste) liste1))
      (setq liste1 (cons (car liste)liste1)))
    (setq liste (cdr liste)))
  (reverse liste1))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

[Diese Nachricht wurde von joern bosse am 06. Jun. 2010 editiert.]

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

---

 

Zitat:

---

Original erstellt von joern bosse:
Hallo Niggemann,
einfach eine neue Liste erstellen, und in einer While Schleife nur die Elemente aus der ursprünglichen Liste einfügen, wenn diese in der neuen Liste noch nicht vorhanden sind.

Code:

---

(defun c:test ( / LISTE LISTE1)
  (setq liste '("10" "10" "A 157" "A 157" "B10" "B10" "B10" ""))
  (while liste
    (if (not(member (car liste) liste1))
      (setq liste1 (cons (car liste)liste1)))
    (setq liste (cdr liste)))
  (reverse liste1))

---

---

über while und repeat und das zugehörige Laufzeiten hatten wir ja schon mal hier diskutiert..... und wenn die Länge der Liste von vornherein bekannt ist, ist repeat auf jedenfall schneller.... bei kurzen Liste mag das ja nicht ins Gewicht fallen, trotzdem kein Grund, das so wie von dir gepostet zu machen ... der von Dorfy geopostete Link ist eigentlich ziemlich umfassend...

evtl. ist ein Implement mit
(setq NEWLISTE(cons(car LISTE)NEWLISTE))
(setq LISTE(vl-remove-if'(lambda(X) (=(car LISTE)X))(cdr LISTE))

... schneller , teste ich jetzt aber nicht..ich geh lieber in die Sonne 

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

---

@CADmium,

Zitat:

---

der von Dorfy geopostete Link ist eigentlich ziemlich umfassend...

---

und genau das hatte mich heute (vielleicht liegt es am schönen Wetter) gestört, sicherlich wird dort die Frage von Niggemann bis ins letzte Detail beantwortet. Ich hatte aber den Eindruck, daß er nur mal eben auf die Schnelle ein Lösung braucht, und dafür sollte mein Beispiel reichen. Wenn er aber doch einen Code erzeugen will, der  elegant und schnell läuft, dann muss er sich mit dem Link von Dorfy befassen.

So, ich gehe wieder in die Sonne 

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Danke euch allen,
wollte ja "nur" mal schnell eine Zeichenkette sortieren,
ihr habt mir den Zahn schell gezogen aber super weiter geholfen.
Ich habe mich für die Lösung mit "foreach" entschieden und klappt super.
Nochmals Danke.
mfg
Niggemann

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