| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Zahlenreihe (608 mal gelesen)
|
Ex-Mitglied | |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 20. Jul. 2005 17:25 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|
Ex-Mitglied | |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 20. Jul. 2005 21:01 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|
Ex-Mitglied | |
cad-intensiv Mitglied CAD-Anbieter
Beiträge: 31 Registriert: 14.06.2005
|
erstellt am: 21. Jul. 2005 00:10 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
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 |
Dabrunz Mitglied
Beiträge: 127 Registriert: 28.05.2003
|
erstellt am: 21. Jul. 2005 17:12 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
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 |
cad-intensiv Mitglied CAD-Anbieter
Beiträge: 31 Registriert: 14.06.2005
|
erstellt am: 21. Jul. 2005 18:50 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
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 |
Ex-Mitglied | |
Ex-Mitglied | |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 22. Jul. 2005 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|