---

hallo!

vl-sort liefert mir folgendes ergebnis.

(SETQ xl  '(("B" "1") ("B" "0") ("B" "1")
            ("A" "1") ("A" "1")
            ("G" "0") ("A" "2") ("A" "1")
            ("A" "2") ("B" "1")
            ("C" "0") ("C" "3") ("C" "3"))
)
(SETQ xl (vl-sort xl (function (lambda (e1 e2) (< (car e1) (car e2))))))

;ergebnis vl-sort
 
(("A" "1") ("A" "1") ("A" "2") ("A" "1") ("A" "2")
("B" "1") ("B" "0") ("B" "1") ("B" "1")
("C" "0") ("C" "3") ("C" "3")
("G" "0"))
)

ich möchte das ergebnis jetzt weiter innerhalb der "listenabschnitte" A B C G nach dem zweiten listeneintrag sortieren. (ähnlich wie in excel).

ergebnis nach dem zweiten sortiervorgang

(("A" "1") ("A" "1") ("A" "1") ("A" "2") ("A" "2")
("B" "0") ("B" "1") ("B" "1") ("B" "1")
("C" "0") ("C" "3") ("C" "3")
("G" "0"))
)

gibt's dafür in lisp eine fertige funktion, oder muss ich die einzelnen abschnitte in einer variablen zwischenspeichern, sortieren und dann wieder zu einer liste zusammenfügen?

ciao georg

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

---

(SETQ xl (vl-sort
          (vl-sort xl '(lambda (e1 e2) (< (cadr e1) (cadr e2))))
          '(lambda (e1 e2) (< (car e1) (car e2)))
        )
)

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

---

Versuch es mal hiermit :

(vl-sort
'(("A" "1") ("A" "1") ("A" "1") ("A" "2") ("A" "2")
("B" "0") ("B" "1") ("B" "1") ("B" "1")
("C" "0") ("C" "3") ("C" "3")
("G" "0"))
  (function (lambda (e1 e2) (< (cadr e1) (cadr e2)))))

VG
Wolfgang

------------------
LISP = Lots of Insane Stupid Parantheses

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

---

danke!

@thomas
kannst du mir erklären was deine funktion im einzelnen macht.
(debugger war nicht sehr aussagekräftig, außer dass zuerst nach dem zweiten und dann nach dem ersten kriterium sortiert wird)

ciao georg

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

---

(SETQ xl (vl-sort
          (vl-sort xl '(lambda (e1 e2) (< (car e1) (car e2))))
          '(lambda (e1 e2) (< (cadr e1) (cadr e2)))
        )
)

das innere (vl-sort xl '(lambda (e1 e2) (< (car e1) (car e2))))
sortiert die Liste xl nach dem ersten Listenelement und liefert eine sortierte Liste zurück, welche gleich die Eingabe des "äußeren" vl-sort ist welches mittels '(lambda (e1 e2) (< (cadr e1) (cadr e2))) nach dem 2. Listenelement sortiert.

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

---

Tag zusammen.

Wenn ich mich recht erinnere, dann heißt eine solche Ordnung in Anlehnung an die Sortierung in Lexika oder Wörterbüchern lexikalische Ordnung. Anhand der ersten unterschiedlichen Stelle von vorne wird festgelegt, ob die eine oder die andere Liste kleiner ist. Hierbei sollen kürzere Listen, die in allen Eintägen dem Anfang der Verleichsliste entsprechen als kleiner zu interpretieren. Eine Implementierung in VLisp kann dann so aussehen:

Code:

---

(defun :l-lexiOrder (x y / )
  (cond
  ((and(not x)y));**  ist die 1. Liste zuende, die 2. aber nicht --> KLEINER
  ((or(not x)(not y))nil);**  mindestens eine Liste ist zu Ende UND NOT KLEINER --> GRÖßER ODER GLEICH
  ((<(car x)(car y)));** Treffer: 1. Stellen erfüllen die kanonische Ordnung
  ((=(car x)(car y));** nächste Stelle prüfen, weil bisher GLEICH
    (:l-lexiOrder(cdr x)(cdr y))
  )
  )
)

---

Die Sortierung der Liste kann dann mit

Code:

---

(vl-sort xl':l-lexiOrder)

---

und das unabh. von der Länge der Listen.

Achim Dabrunz

------------------

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

---

Extrem schöne Funktion. Hab meine gleich im Klo runtergespült;-)

Gruß, Axel

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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