---

Nach seeeehr langer Zeit mal wieder ein Blog-Artikel von mir, der wenigstens zum Teil etwas mit Lisp-Programmierung in CoCreate Modeling zu tun hat:

http://www.clausbrod.de/Blog/DefinePrivatePublic20150404FlacheHierarchien

Es geht um einen Vergleich algorithmischer Varianten, wie man eine Baugruppenstruktur abläuft und in eine unverschachtelte Liste flachklopft. Wahrscheinlich nur für die wenigsten direkt anwendbar, aber wer weiss das schon so genau ;-)

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

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

---

░░░░░░░░░░░░▄▄
░░░░░░░░░░░█░░█
░░░░░░░░░░░█░░█
░░░░░░░░░░█░░░█
░░░░░░░░░█░░░░█
███████▄▄█░░░░░██████▄
▓▓▓▓▓▓█░░░░░░░░░░░░░░█
▓▓▓▓▓▓█░░░░░░░░░░░░░░█
▓▓▓▓▓▓█░░░░░░░░░░░░░░█
▓▓▓▓▓▓█░░░░░░░░░░░░░░█
▓▓▓▓▓▓█░░░░░░░░░░░░░░█
▓▓▓▓▓▓█████░░░░░░░░░█
██████▀░░░░▀▀██████▀

Like!

Der Vollständigkeit halber anbei noch eine weitere (nicht so elegante) Variante:

Code:

---

(defun flatten (orig-list)
    (if (eql orig-list nil)
        nil
        (let ((elem (car orig-list)) (rest-list (cdr orig-list)))
            (if (listp elem)
                (append (flatten elem) (flatten rest-list))
                (append (cons elem nil) (flatten rest-list))))))

---

Quelle: 99-lisp-problems

Oder als Variante mit loop:

Code:

---

(defun flatten (l)
  (cond ((null l) nil)
        ((atom l) (list l))
        (t (loop for a in l appending (flatten a)))))

---

Gruß Alex

------------------
Computer sind unbrauchbar. Sie können nur Fragen beantworten.
Pablo Picasso, Maler

[Diese Nachricht wurde von AlexG am 07. Apr. 2015 editiert.]

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

---

Danke Alex!

Deine zweite Variante sieht für das konkrete Problem angepasst und ganz leicht optimiert dann so aus:

Code:

---

(defun flatten-loop(node)
  (cond
    ((null (node-children node)) (list node))
    (t (cons node (loop for n in (node-children node)
                        nconcing (flatten-loop n))))))

---

Auf jeden Fall schon mal gut zu lesen, finde ich.

Die Performanceergebnisse sind eher gemischt. Ich werde noch ein paar Tests fahren und die Ergebnisse dann dem Blogartikel hinzufügen. Dankeschön nochmals!

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

[Diese Nachricht wurde von clausb am 08. Apr. 2015 editiert.]

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