Ejercicios más Complicados de LISP

Descripción Implementar 2 funciones de búsqueda (profundidad ) en lisp que dada una lista (árbol) el nodo final despliegue la trama solución
Solución 1
Primero creamos un archivo en lisp llamado profundidad e ingresamos las listas y empezamos a realizar la búsqueda.
Nota.- La función tiene una estructura y se toma como nodo raíz al primer elemento de la lista, luego el segundo parámetro que recibe la función es hasta que nodo quiere buscar.
Primer parámetro de la función busqueda_profundidad
Lista árbol en lisp ‘ (a (b ( d e)) (c (f g)) )
Codigo fuente
(DEFUN busqueda_profundidad (lista fin)
( IF (ATOM lista)
(IF (null lista)
( )
(print lista)
)
)
(COND ((ATOM lista))
( (IF (EQUAL (CAR fin) (CAR lista))
()
(busqueda_profundidad(CAR lista) fin)
)
(busqueda_profundidad(CDR lista) fin)
)
)
)
(busqueda_profundidad '((C (J (G O) K (L M N) P (Q R (T))))) '(m))