Home
Add Document
Sign In
Register
Busqueda Por Anchura y Profundidad en Lisp
Home
Busqueda Por Anchura y Profundidad en Lisp
Busqueda Por Anchura y Profundidad en LispDescripción completa...
Author:
Nilas Arcanister
7 downloads
95 Views
23KB Size
Report
DOWNLOAD .PDF
Recommend Documents
Recorrido en Anchura y Profundidad de Un Grafo
describe los algoritmos para un recorrido de un grafo programado en javaDescripción completa
Busqueda en Areas Afines
Descripción: Areas Afines
Busqueda
Descripción: busquedas internet
Busqueda en el Tarot.pdf
Descripción completa
Busqueda
libro de cosas
Busqueda y Rescate en Estructuras Colapsadas.pdf
Descripción completa
Ordenamiento y Busqueda
Descripción: Ejercicio resuelto Java
Ordenamiento y Busqueda
Ejercicio resuelto Java
Velocidades y Profundidad de Corte
Descripción completa
Energia Especifica y Profundidad Critica
6Rutinas LISP
Auto Lisp
Descrição: Apostila Autolisp
Programacion Lisp
Descripción completa
Visual Lisp
Busqueda de Informacion en Internet
BUSQUEDA LOCAL EN ESPACIOS CONTINUOS
QUINTA ENTRADA AL PORTAFOLIO DIGITAL DE INTELIGENCIA ARTIFICAL IIDescripción completa
La Inconciencia en La Busqueda de Conciencia Por Brad Hunter
Descripción completa
Busqueda Tabu en Excel Buenisimo
Visual Lisp
Visuallisp tutorial for AutoCAD Users
Visual Lisp
Visuallisp tutorial for AutoCAD Users
Auto Lisp
Pengertian Lisp
Full description
Visual Lisp
Visuallisp tutorial for AutoCAD UsersDescrição completa
Auto Lisp
Full description
; Algoritmos de busqueda por anchura y profundidad ; Copyrigth 2010 Luis Espino ; Todos los derechos reservados. ; ; ; ; ;
Problema: Matriz de posiciones Regla de sucesores: todo nodo alrededor 1 2 3 4 5 6 7 8 9
; la siguiente expresión sirve para leer el archivo desde consola ; (load 'busqueda.lisp) 'busqueda.lisp) (defun sucesores (cond ((= nodo 1) ((= nodo 2) ((= nodo 3) ((= nodo 4) ((= nodo 5) ((= nodo 6) ((= nodo 7) ((= nodo 8) ((= nodo 9) (t nil) ) )
(nodo) (list (list (list (list (list (list (list (list (list
5 6 6 8 9 9 8 9 8
4 5 5 7 8 8 5 7 6
2)) 4 3 2)) 5 2 7 6 5 3 4)) 6 5 5))
1)) 1)) 4 3 2 1)) 2)) 4))
(defun busqueda-anchura (nodo-inicio nodo-fin) (print 'BUSQUEDA-ANCHURA) 'BUSQUEDA-ANCHURA) (setq lista (list nodo-inicio)) (loop until (null lista) do (setq nodo-actual nodo-actua l (car lista)) (print nodo-actual) (setq lista (cdr lista)) (if (= nodo-actual nodo-fin) (return-from busqueda-anchura (print 'SOLUCION))) 'SOLUCION))) (setq temp (sucesores nodo-actual)) nodo-actual)) ;(setq temp (reverse temp)) ; intercambiar orden (print temp) (if (not (null temp)) (setq lista (append lista temp)) ) ) (print 'NO-SOLUCION) )
(defun busqueda-profundidad (nodo-inicio nodo-fin) (print 'BUSQUEDA-PROFUNDIDAD) (setq lista (list nodo-inicio)) (loop until (null lista) do (setq nodo-actual (car lista)) (print nodo-actual) (setq lista (cdr lista)) (if (= nodo-actual nodo-fin) (return-from busqueda-profundidad (print 'SOLUCION))) (setq temp (sucesores nodo-actual)) ;(setq temp (reverse temp)) ; intercambiar orden (print temp) (if (not (null temp)) (setq lista (append temp lista)) ) ) (print 'NO-SOLUCION) ) (busqueda-anchura 1 9) (format t "~%") (busqueda-profundidad 1 9)
×
Report "Busqueda Por Anchura y Profundidad en Lisp"
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
×
Sign In
Email
Password
Remember me
Forgot password?
Sign In
Our partners will collect data and use cookies for ad personalization and measurement.
Learn how we and our ad partner Google, collect and use data
.
Agree & close