---

Hallo zusammen. schon wider ich^^
Ich habe folgendes Problem:
In einer Liste will ich zu jedem Objekt eine Distanz zuordnen und dann die kleinst Distanz rausfinden.

(apply 'min (mapcar 'cdr '((ObjNr . dist)(2 . 1.112)(3 . 2.13)(4 . 2.4))))

so finde ich die gewünschte kleinste Distanz. Aber wie zum Teufel kommen ich jetzt noch an die Objektnummer ran?

Ich stehe echt auf dem Schlauch 

Die Liste darf auch anders aussehen was ich eigentlich einfach brauche ist der nächste Punkt zu einer Linie. Aber das kommt nachher 
Wollte das eigentlich mittels "vlax-curve-getClosestPointTo" realisieren, deshalb die kleinste Distanz.

Hoffe ich hab mich mit meinen Gedanken nicht total in die falsche Richtung bewegt.

1000 Dank für's lesen und Gruss

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

---

hi,
schau mal in der "Entwicklerhilfe" (unter vlisp) nach vl-sort, da gab es mal ein Beispiel zum sortieren von diesen Listen.

wenn nicht... mapcar lambda (X) (blabla...

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
-Lots of irritating superfluous parentheses!-

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

---

Zitat:

---

Original erstellt von Steff179:
Hallo zusammen. schon wider ich^^
Ich habe folgendes Problem:
In einer Liste will ich zu jedem Objekt eine Distanz zuordnen und dann die kleinst Distanz rausfinden.

(apply 'min (mapcar 'cdr '((ObjNr . dist)(2 . 1.112)(3 . 2.13)(4 . 2.4))))

so finde ich die gewünschte kleinste Distanz. Aber wie zum Teufel kommen ich jetzt noch an die Objektnummer ran?

Ich stehe echt auf dem Schlauch  

Die Liste darf auch anders aussehen was ich eigentlich einfach brauche ist der nächste Punkt zu einer Linie. Aber das kommt nachher  
Wollte das eigentlich mittels "vlax-curve-getClosestPointTo" realisieren, deshalb die kleinste Distanz.

Hoffe ich hab mich mit meinen Gedanken nicht total in die falsche Richtung bewegt.

1000 Dank für's lesen und Gruss

---

Sortiere die Liste doch einfach nach DIST:

(vl-sort lst '(lambda (tok1 tok2) (< (cdr tok1)(cdr tok2))))

Alternativ: fange mit dem ersten DIST und dessen Nummer an, und gehe dann die ganze Liste durch. Immer, wenn Du auf ein kleineres DIST triffst, dann ersetzt Du die Nummer durch dessen Nummer.

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

---

OMG

Ich stand wirklich auf dem schlauch ^^

Liste sortieren, da hätte ich jetzt wirklich selber drauf kommen können :s das nächste mal schlafe ich zuerst darüber.

Danke für die Anregung.

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

---

Zitat:

---

Original erstellt von Steff179:
OMG

Ich stand wirklich auf dem schlauch ^^

Liste sortieren, da hätte ich jetzt wirklich selber drauf kommen können :s das nächste mal schlafe ich zuerst darüber.

Danke für die Anregung.

---

Bei großen Listen dürfte das Sortieren deutlich länger brauchen als der normale Vergleich in einer Schleife. Falls es auf Performance ankommt, würde ich die Varianten mal vergleichen.

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