lisp

(defun has-child (tree) ;testet ob ein Kindknoten existiert
    (and (not (null tree)) (listp tree)))

(defun preorder (tree);gibt den Baum in preorder aus
    (cond ((listp tree)
        (print (car tree))
        (if (has-child (cadr tree))(preorder (cadr tree)))
        (if (has-child (caddr tree))(preorder (caddr tree))))
        (T (print '(NOT A TREE)))))

(defun inorder (tree) ;gibt den Baum in inorder aus
    (cond ((listp tree)
        (if (has-child (cadr tree))(inorder (cadr tree)))
        (print (car tree))
        (if (has-child (caddr tree))(inorder (caddr tree))))
        (T (print '(NOT A TREE)))))

(defun postorder (tree) ;gibt den Baum in postorder aus
    (cond ((listp tree)
        (if (has-child (cadr tree))(postorder (cadr tree)))
        (if (has-child (caddr tree))(postorder (caddr tree)))
        (print (car tree)))
        (T (print '(NOT A TREE)))))

Eine Liste, die einen Binären Baum darstellt, beginnt mit dem Wert des Elternknoten gefolgt von zwei inneren Listen, die zuerst den linken und dann den rechten Kindknoten darstellen. Kindknoten sind nach dem gleichen Prinzip aufgebaut. Beispiel: (4 (2 (1) (3) ) (6 (5) (7) ) )