---

Hi Leute,

hab diese Funktion

Code:

---

(mapcar 'strcat '("0") '( "test" "test2"))

---

mit ergebnis: ("0test")

Ich will aber das das erste element, also "0" mit allen elementen aus der zeiten liste zurückgegeben wird
gewünschtes ergebnis: ("0test")("0test2")

wie geht das oder mit welcher funktion bekomme ich das hin?

wenn ich

Code:

---

(mapcar 'strcat '("0""00") '( "test" "test2"))

---

eingebe ist mein ergebnis
("0test")("00test2")
also jedes element aus der ersten liste mit dem entsprechenden in der zweiten liste...

mfg blue

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

---

(mapcar
    '(lambda(s)(strcat "0" s))
'( "test" "test2")
)

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

jo danke cadffm funktioniert soweit, auch wenn mir die lambda funktion noch nicht so ganz ersichtilich ist.

ps: gibts es keine funktion die jedes element aus der ersten liste mit der aus der zweiten kombiniert? ich meine ich könnte mich dunkel an diesen wortlauf erinnern...

mfg blue

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

---

Hallo blue,
was ich zu bieten habe ist zwar auch wieder mit MAPCAR, aber Du bist flexibler:

Code:

---

(defun c:test ( / liste1 liste2)
  (setq liste1 '("0" "1" "2")
liste2 '( "test" "test2"))
  (apply 'append(mapcar '(lambda(ls1)
  (mapcar '(lambda(ls2)
      (strcat ls1 ls2))
  liste2)
  )
liste1)))

---

Rückgabe: ("0test" "0test2" "1test" "1test2" "2test" "2test2")

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Stammtisch in Wolfsburg

http://ww3.cad.de/foren/ubb/Forum491/HTML/000179.shtml

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

---

Hallo blue,
meinst Du vielleicht "foreach":

Code:

---

(defun c:test ( / liste1 liste2 return)
  (setq liste1 '("0" "1" "2") liste2 '( "test" "test2"))
  (foreach n liste1
    (foreach m liste2 (setq return (cons (strcat n m) return)))
  )
  (reverse return)
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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