RE:Puzzle 8
Publicado por
Andrex (1 intervención) el 08/10/2002 17:43:03
/* ALGORITMO DE BUSQUEDA GENERAL. Archivo: BusGen.PL */
/*
Juego : 8 puzzles. A¤o 2000. Programa para alumnos
*/
/* algoritmos */
/********************************************************/
/* Breadth-first */
breadth-first :-
dinamicos,
limpiobd,
asserta(evaluados(0)),
asserta(generados(0)),
asserta(frontera_tam(0)),
asserta(estrategia(breadth-first)),
estado_inicial(No),
!,
busqueda-general(No, X),
reverse(X, R),
!,
save_solucion(R).
/********************************************************/
/* Depth-first */
depth-first :-
dinamicos,
limpiobd,
asserta(evaluados(0)),
asserta(generados(0)),
asserta(frontera_tam(0)),
asserta(estrategia(depth-first)),
estado_inicial(No),
!,
busqueda-general(No, X),
reverse(X, R),
!,
save_solucion(R).
/********************************************************/
/* Depth-first limitado*/
depth-first-limite(L) :-
dinamicos,
limpiobd,
asserta(evaluados(0)),
asserta(generados(0)),
asserta(frontera_tam(0)),
asserta(estrategia(depth-first-limite)),
asserta(limite(L)),
estado_inicial(No),
!,