---

hi!

gibt es in lisp fertige funktionen die mir in einer liste das n-te element tauschen bzw. rauslöschen?

ciao georg

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

---

fertig-> denke ich ja, integriert -> nein .

Zur Listenbearbeitung hast du dir sicher schon den Thread angesehen?!
und zu deinem speziellen Problem : das hier
------------------
       - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 06. Okt. 2005 editiert.]

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

---

Zitat:

---

Original erstellt von CADmium:
integriert -> nein .

---

schade :-(

trotzdem danke!

ciao georg

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

---

Tag zusammen.

Der Hinweis von CADmium war ziemlich gut. Du musst nur die von Holger vorgeschlagene Lösung minimal anpassen, um ein Element an einer vorgegeben Position in einer List zu löschen:

Code:

---

(defun L ELETE_POSITION (LISTE #pos #new / returnLIST)
  (repeat #pos
    (setq returnLIST (cons (car LISTE) returnLIST)
          LISTE      (cdr tmpLISTE)
    )
  )
  (append
    (reverse returnLIST);** war bisher falsch rum sortiert
    (cdr LISTE);** der soll schließlich raus
  )
)

---

Genau diese Position zu tauschen, ist quasi das gleiche:

Code:

---

(defun L:SUBST_POSITION (LISTE #pos #new / returnLIST)
  (repeat #pos
    (setq returnLIST (cons (car LISTE) returnLIST)
          LISTE      (cdr tmpLISTE)
    )
  )
  (append
    (reverse returnLIST)
    (list #new);<-- das ist der Unterschied
    (cdr LISTE)
  )
)

---

Spannend ist nur noch die Frage, was hier passieren soll, wenn die angegebene Position größer ist als die Länge der übergebenen Liste. Hier wird fleißig mit NIL-Einträgen gefüllt, damit am Ende auch gilt:

Code:

---

(nth #pos (L:SUBST_POSITION LISTE #pos #new)) -> #new

---

Ob das so gewünscht ist, bleibt abzuwarten.
Achim Dabrunz

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

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