---

sowas ?

http://ww3.cad.de/foren/ubb/Forum145/HTML/000760.shtml

------------------
Grüsse

Thomas

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

---

Ich finde die Sachen überhaupt nicht ähnlich. Da werden doch Zahlen sortiert, hier geht's um Zeichenketten, oder? Die sollen aber so sortiert werden, als ob es Zahlen wären.

Also müssen sie vor dem Vergleich mit (atoi) in Zahlen umgewandelt werden, also (vl-sort-i '(lambda(a b /)(< (atoi a)(atoi b))))

Gruß, Axel Strube-Zettler

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

---

Zitat:

---

Original erstellt von Rabbit 007:
[B]Hallo mapcar
mit deinem vorhaben komme ich auch nicht zum Ziel und ein fehler hat sich noch eingeschlichen wo ist die 15 hin.
Oder bin ich wieder zu blöd was ich hier mal in der vordergrund stellen möchte weil mein wissen auch nur deine internet-seiten ankratzt.

(setq aa '("1" "10" "11" "12" "13" "14" "15" "2" "3" "4" "5" "6" "7" "8" "9"))
B]

---

Vorausgesetzt, die Strings enthalten immer Ganzzahlen, geht's so  richtig: (mapcar 'itoa (vl-sort (mapcar 'atoi aa) '< ))

Robert

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

---

Tag zusammen.

Zitat:

---

cad-intensiv: Vorausgesetzt, die Strings enthalten immer Ganzzahlen, geht's so  richtig: (mapcar 'itoa (vl-sort (mapcar 'atoi aa) '< ))

---

Hüstel - das liefert zwar unter einigen Bedingungen ein passendes Ergebnis, aber 2x Daten konvertieren ist für meinen Geschmack doch etwas grob oder?

Zitat:

---

Rabbit: mit deinem vorhaben komme ich auch nicht zum Ziel und ein fehler hat sich noch eingeschlichen wo ist die 15 hin.

---

Mit deiner Konstruktion erreichst du nur die Indizes und die laufen nun mal von 0 - 14. Da ist auch 'ne 0 drin - siehst du?

Zitat:

---

Oder bin ich wieder zu blöd was ich hier mal in der vordergrund stellen möchte weil mein wissen auch nur deine internet-seiten ankratzt.

---

Na-na - nicht gleich verzweifeln - wwenn du du Axels Vorschlag da hin tust, wo er hingehört, dann klappts auch mit der Sortierung. Er wollte dir sicher vorschlagen, dein vl-sort-i-Konstrukt durch seines zu ersetzen:

Code:

---

(setq aa (mapcar
          '(lambda(index)(nth index aa))
          (vl-sort-i
            aa
          '(lambda(a b)
              (< (atoi a)(atoi b))
            )
          )
        )
)

---

Achim Dabrunz

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

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

---

Zitat:

---

Original erstellt von Dabrunz:

Zitat:
--------------------------------------------------------------------------------
cad-intensiv: Vorausgesetzt, die Strings enthalten immer Ganzzahlen, geht's so  richtig: (mapcar 'itoa (vl-sort (mapcar 'atoi aa) '< ))
--------------------------------------------------------------------------------

Hüstel - das liefert zwar unter einigen Bedingungen ein passendes Ergebnis, aber 2x Daten konvertieren ist für meinen Geschmack doch etwas grob oder?

---

Stimmt - ist etwa 10% langsamer. Also dann doch (mapcar (function (lambda (x) (nth x aa)))(vl-sort-i (mapcar 'atoi aa) '< ))

Robert

------------------
Lisp-Seminare in Wien am 25. und 26. Sep 2005 und später in München, Frankfurt, Köln , Berlin ... -> Infos unter cad-intensiv@gmx.de

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

---

Nein, hier schlägt sich gar keiner;-) Mein Fehler war, dass ich das ziemlich schnell hingeschrieben habe und dabei die 3 Pünktchen vergessen habe. Sollte ja nur ein Denkanstoß sein.

Auf das "-i" würde ich aber keinesfalls verzichten.

Bei allem, was mit Sortieren zu tun hat, sollte man übrigens auf's Tempo achten, sonst baut man sich evtl. hirnrissige Stromfresser ein!

Gruß, Axel Strube-Zettler

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