---

Jetzt habe ich ein Problem mit mapcar:                            (setq Vektor '(
              ((12 11 10) (9 8 7))    ; 1. Liste
              ((6 5 4)(3 2 1))        ; 2. Liste
              )
)     

Jetzt sollen von den ersten x-y-z-Koordinaten aus der ersten Liste die ersten x-y-z-Koordinaten der zweiten Liste abgezogen werden und von den zweiten x-y-z-Koordinaten aus der ersten Liste, die zweiten ,...
                            (12 11 10)        (9 8 7)
                            -( 6  5  4)  und  -(3 2 1)
                            => ((6 6 6)(6 6 6))

Ich komme aber leider nur so weit:
mapcar '- (caar Vektor)(caadr Vektor))
(6 6 6)
Die zweiten Teile der Liste werden nicht mehr berechnet.

Wie lautet die Funktion richtig? Ich komme einfach nicht drauf

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

---

Hallo Andrea,

dann eben hier ;-)

So sollte es gehen:
(mapcar '(lambda (L1 L2)
   (mapcar '- l1 l2)
   )
(list '(10 9 8) '(7 6 5))
(list '(1 2 3) '(4 5 6))
)
->((9 7 5) (3 1 -1))

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?

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

---

Probleme mit mapcar?

Zu später Stunde nochetwas Verwirrung stiftend: Holger, bei deiner Methode muss das Argument (Vektor) umgestellt werden.

Mit mapcar muss aber wirklich keiner einer Problem haben! *grien*

Code:

---

(setq v
'( ((12 11 10) ( 9  8  7))
    (( 6  5  4) ( 3  2  1))
  )
)

(apply'(lambda(u v)(mapcar'(lambda(u v)(mapcar'- u v))u v))v)
=> ((6 6 6)(6 6 6))

---

OK, ich gebe zu, ein bisschen gemein sieht das schon aus... Aber ein gutes Beispiel für Namespaces!

Gruss, mapcar

------------------
Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

---

Zitat:

---

Original erstellt von mapcar:
Probleme mit mapcar?
Mit mapcar muss aber wirklich keiner einer Problem haben! *grien*
[/code]
[/B]

---

Hallo mapcar,

stimmt! - aber bei der Ergründung deiner Lösungen (manchmal) schon *grins*.

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?

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

---

Eine späte Nachfrage noch zur Lösung (vorher bin ich nicht zum Durcharbeiten gekommen): Warum werden überall die gleichen Variablennamen genommen? Ich habe herumprobiert und mir ist

(apply '(lambda (a b) (mapcar '(lambda (c d) (mapcar '- c d))a b)) v)

dann leichter verständlich vorgekommen und es funktioniert auch. Da meine Lisp-Kenntnisse nicht so riesig sind weiss ich nicht ob die vielen u's und v's vielleicht doch einen Vorteil haben und wenn ja welchen?

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

---

Hallo Dea,

du kannst natürlich so viele Variablen vereinbaren, wie du gern möchtest. Schneller macht's das aber nicht.
In diesem Fall gehts auch mit den 2en, da die Lambda-Funktion einen eigenen Namensraum hat. Warum also mit verschiedenen Variablen noch mehr Verwirrung stiften  .

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

---

Da gebe ich Dea eigentlich Recht: Natürlich war das wieder ein Anflug meines schrägen Humors, dass ich da überall die gleichen Namen verwendet habe. Es sollte ja ein Beispiel für Namensräume sein. Wesentlich ist nur: in dieser Zeile gibt es fünf verschiedene Variablen, wovon eine schon aus einem übergeordneten Namensraum übernommen wird. Deas Variante ist tatsächlich besser lesbar.

Gruss, Axel

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

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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