• Author / Uploaded
• gio

Citation preview

INFORME DEL JUEGO TRES EN RAYA IMPLEMENTADO EN PROLOG Es un juego entre dos jugadores: O y X, que marcan las casillas de un tablero de 3 ×3 alternadamente. Un jugador gana si consigue tener una línea de tres de sus símbolos: la línea puede ser horizontal, vertical o diagonal. Una partida ganada por el primer jugador, X:

Una partida que termina en empate:

Los jugadores no tardan en descubrir que el juego perfecto termina en empate sin importar con qué juega el primer jugador. La misma simplicidad del juego de tres en raya lo hacen ideal como herramienta pedagógica para enseñar los conceptos de teoría de juegos y la rama de inteligencia artificial que se encarga de la búsqueda de árboles de juego. Implementaremos el presente juego en el lenguaje Prolog mediante la IDE SWI-Prolog.

IMPLEMENTACION DEL JUEGO EN SWI-PROLOG

% % % Tres en raya % Programacion logica % INF - 320 % win(Brd, Plyr) :- rwin(Brd, Plyr); cwin(Brd, Plyr); dwin(Brd, Plyr). rwin(Brd, Plyr) :- Brd = [Plyr,Plyr,Plyr,_,_,_,_,_,_]; Brd = [_,_,_,Plyr,Plyr,Plyr,_,_,_]; Brd = [_,_,_,_,_,_,Plyr,Plyr,Plyr]. cwin(Brd, Plyr) :- Brd = [Plyr,_,_,Plyr,_,_,Plyr,_,_]; Brd = [_,Plyr,_,_,Plyr,_,_,Plyr,_]; Brd = [_,_,Plyr,_,_,Plyr,_,_,Plyr]. dwin(Brd, Plyr) :- Brd = [Plyr,_,_,_,Plyr,_,_,_,Plyr]; Brd = [_,_,Plyr,_,Plyr,_,Plyr,_,_]. omove([a,B,C,D,E,F,G,H,I], omove([A,a,C,D,E,F,G,H,I], omove([A,B,a,D,E,F,G,H,I], omove([A,B,C,a,E,F,G,H,I], omove([A,B,C,D,a,F,G,H,I], omove([A,B,C,D,E,a,G,H,I],

Plyr, Plyr, Plyr, Plyr, Plyr, Plyr,

[Plyr,B,C,D,E,F,G,H,I]). [A,Plyr,C,D,E,F,G,H,I]). [A,B,Plyr,D,E,F,G,H,I]). [A,B,C,Plyr,E,F,G,H,I]). [A,B,C,D,Plyr,F,G,H,I]). [A,B,C,D,E,Plyr,G,H,I]).

omove([A,B,C,D,E,F,a,H,I], Plyr, [A,B,C,D,E,F,Plyr,H,I]). omove([A,B,C,D,E,F,G,a,I], Plyr, [A,B,C,D,E,F,G,Plyr,I]). omove([A,B,C,D,E,F,G,H,a], Plyr, [A,B,C,D,E,F,G,H,Plyr]). xmove([a,B,C,D,E,F,G,H,I], 1, [x,B,C,D,E,F,G,H,I]). xmove([A,a,C,D,E,F,G,H,I], 2, [A,x,C,D,E,F,G,H,I]). xmove([A,B,a,D,E,F,G,H,I], 3, [A,B,x,D,E,F,G,H,I]). xmove([A,B,C,a,E,F,G,H,I], 4, [A,B,C,x,E,F,G,H,I]). xmove([A,B,C,D,a,F,G,H,I], 5, [A,B,C,D,x,F,G,H,I]). xmove([A,B,C,D,E,a,G,H,I], 6, [A,B,C,D,E,x,G,H,I]). xmove([A,B,C,D,E,F,a,H,I], 7, [A,B,C,D,E,F,x,H,I]). xmove([A,B,C,D,E,F,G,a,I], 8, [A,B,C,D,E,F,G,x,I]). xmove([A,B,C,D,E,F,G,H,a], 9, [A,B,C,D,E,F,G,H,x]). xmove(Brd, _, Brd) :- write('Movimiento Illegal.'), nl. disp([A,B,C,D,E,F,G,H,I]) :write('|'), write([A,B,C]),write('|'),nl, write('|'), write([D,E,F]),write('|'),nl, write('|'), write([G,H,I]),write('|'),nl,nl. go :- how_to_play, strt([a,a,a,a,a,a,a,a,a]). how_to_play :write('Tu juegas con las x, Introduce la posición seguida de un punto.'), nl, disp([1,2,3,4,5,6,7,8,9]). strt(Brd) :- win(Brd, x), write('Tu ganas!'). strt(Brd) :- win(Brd, o), write('AI gana!'). strt(Brd) :- read(N), xmove(Brd, N, NewBrd), disp(NewBrd), oplay(NewBrd, NewnewBrd), disp(NewnewBrd), strt(NewnewBrd). can_x_win(Brd) :- omove(Brd, x, NewBrd), win(NewBrd, x). oplay(Brd,NewBrd) :omove(Brd, o, NewBrd), win(NewBrd, o),!. oplay(Brd,NewBrd) :omove(Brd, o, NewBrd), not(can_x_win(NewBrd)). oplay(Brd,NewBrd) :omove(Brd, o, NewBrd).

oplay(Brd,NewBrd) :not(member(a,Brd)),!, write('Juego terminado sin Ganador!'), nl, NewBrd = Brd. CONCLUCIONES En este caso concluimos que el lenguaje de programación funcional Prolog es adecuado para diseñar sistemas expertos y aplicar lógica proposicional en ellos, simula de manera efectiva el comportamiento y raciocinio del ser humano. Es versátil y entendible. Fácil comprensión y se adecua a las necesidades del momento.