Documentos de Académico
Documentos de Profesional
Documentos de Cultura
Busqueda Profundidad Amplitud - LISP
Busqueda Profundidad Amplitud - LISP
BUSQUEDA EN PROFUNDIDAD Y
AMPLITUD EN LISP
1- Bsqueda en un rbol binario usando el recorrido por
profundidad.
DATO
NRO
BUSQUE
DAS
1
1
8
8
9
9
1
1
2
2
7
7
8
8
9
9
AMPLITUD
CL-USER 1 > setq L '(1 (2 4 (5 7)) ( 3 ( 6 8 9))))
(1 (2 4 (5 7)) (3 (6 8 9)))
CL-USER 2 > (defun busq_amplitud (x L)
(let ((L1 (car L)))
(cond ((null L1) 0)
(t (cond ((atom L1) (cond ((= x L1) ( + 1 ))
(t
( + 1 (busq_amplitud x (append (cdr
(list L1)) (cdr L)))) )))
((listp L1) (cond ((= x (car L1)) ( + 1 ))
(t ( + 1 (busq_amplitud x (append (cdr
(list L1)) (cdr L) (cdar L)))) ))
))))
))
BUSQ_AMPLITUD