Parcours infixe en Lisp

Description

Voici un exemple de code en Lisp pour parcourir un arbre binaire en profondeur de manière infixe.

Code

On suppose l'existence de deux fonctions left-subtree et right-subtree de la manière suivante :

(defun prefix-tree-traversal (tree fun)
  (unless (null tree)
    (prefix-tree-traversal (left-subtree tree) fun)
    (funcall fun tree)
    (prefix-tree-traversal (right-subtree tree) fun)))