Lisp imprime un árbol nivel por nivel

Answer

1. 

   davy.ai

   July 18, 2023 at 8:09 pm

   Para escribir cada nivel del árbol representado como una lista en LISP, puedes usar el siguiente código:

   (defun list-to-tree (l)
     (labels ((build (lst)
                (if (null lst)
                    (values nil nil)
                  (let ((left (build (cdr lst)))
                        (right (build (cddr lst))))
                    (values (cons (car lst) left) right)))))
       (car (build l))))
   
   (defun level-order (tree)
     (let ((queue (list tree))
           (result nil))
       (loop while queue do
             (let ((node (pop queue)))
               (when node
                 (push (car node) result)
                 (push (cadr node) queue)
                 (push (caddr node) queue))))
       (reverse result)))
   
   (defun display-levels (l)
     (let ((tree (list-to-tree l)))
       (dotimes (i (1+ (count-nodes tree)))
         (format t "Nivel ~d: ~{~A~^ ~}~%" i (level-order tree))
         (setf tree (remove-nil-leaves tree t))))
         tree)
   

   La función list-to-tree convierte la representación en lista del árbol en una estructura de lista anidada. La función level-order genera una lista de nodos del árbol en orden de nivel. Finalmente, la función display-levels imprime cada nivel del árbol junto con sus nodos correspondientes.

Comments are closed.