---

Hallo Lisp-Forum,
ich möchte eine Liste sortieren, in der gleiche Listenelemente vorkommen. Diese dürfen aber nicht entfernt werden.
Mit (vl-sort (list 2 1 3 1) (function (lambda (e1 e2) (< e1 e2))))erhalte ich als Ergebnis nur (1 2 3), ich brauche aber (1 1 2 3).
Wie kann ich dieses Problem lösen?
Uwe

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

---

Tag Uwe.

Verwende einfach vl-sort-i, die Funktion arbeitet 'frei von Sonderfällen', liefert aber nur eine Index-Liste zurück, aus der sich aber ganz gut die sortierte Liste gewinnen lässt:

Code:

---

(defun :sort (#list #order)
  (mapcar
  '(lambda(index) (nth index #list))
    (vl-sort-i #list #order)
  )
)

---

Mit (:sort'(2 1 3 1)'< ) gibt's dann die gewünschte Sortierung.

Achim Dabrunz

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

[Diese Nachricht wurde von Dabrunz am 02. Sep. 2004 editiert.]

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

---

Hallo Achim,
vielen Dank für den schnellen Tipp!
Uwe

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