Tres En Linea a2f4j

TRES EN LINEA 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

Como vemos en la tabla, cada número representa cada casillero, donde se imprimirá la X o el O. A continuación veremos las 8 formas para llegar a la victoria del jugador X u O, esto es: Ganar Por Fila Ganar Por Columna Ganar Por Diagonal

 

Las Casillas están numeradas de 1 al 9 Sucesos para ganar: ganafila(1,2,3); ganafila(4,5,6); ganafila(7,8,9); ganacolumna(1,4,7) ganacolumna(2,5,8) ganacolumna(3,6,9) ganadiagonal(1,5,9) ganadiagonal(3,5,7)

De esta forma definimos la regla gana, donde contiene ganar por fila, ganar por columna y ganar por diagonal, como podemos ver en las tablas siguientes sus reglas: gana(Tabla, Jugador) :- ganafila(Tabla, Jugador); ganacolumna(Tabla, Jugador);

ganadiagonal(Tabla, Jugador). ganafila(Tabla, Jugador) :Tabla = [Jugador,Jugador,Jugador,_,_,_,_,_,_]; Tabla = [_,_,_,Jugador,Jugador,Jugador,_,_,_]; Tabla = [_,_,_,_,_,_,Jugador,Jugador,Jugador].

ganacolumna(Tabla, Jugador) :Tabla = [Jugador,_,_,Jugador,_,_,Jugador,_,_]; Tabla = [_,Jugador,_,_,Jugador,_,_,Jugador,_]; Tabla = [_,_,Jugador,_,_,Jugador,_,_,Jugador].

ganadiagonal(Tabla, Jugador) :Tabla = [Jugador,_,_,_,Jugador,_,_,_,Jugador]; Tabla = [_,_,Jugador,_,Jugador,_,Jugador,_,_].

Impresión del

Tablero

Para imprimir el juego en SWI-Prolog imprimiremos jugar. El predicado jugar comienza un juego con el y nos mostrará el siguiente gráfico:

Para que nos muestre esta tabla, se ha codificado la siguiente regla: jugar :- como_jugar, jugardela([a,a,a,a,a,a,a,a,a]). Donde la regla: como_jugar:write('Tu eres el jugador x, ingrese la posicion de la casilla a jugar.'), nl, mostrar([1,2,3,4,5,6,7,8,9]). mostrar([A,B,C,D,E,F,G,H,I]) :write('|'), write([A,B,C]),write('|'),nl, write('|'), write([D,E,F]),write('|'),nl, write([G,H,I]),write('|'),nl,nl.

write('|'),

jugardela(Tabla) :- gana(Tabla, x), write('Tu ganaste!'). jugardela(Tabla) :- gana(Tabla, o), write('Gano IA!'). jugardela(Tabla) :- read(N), xmovimiento(Tabla, N, NuevaTabla), mostrar(NuevaTabla), oresponde(NuevaTabla, NuevanuevaTabla), mostrar(NuevanuevaTabla), jugardela(NuevanuevaTabla).

La jugada del computador es de la siguiente forma:

A continuación explicaremos los movimientos del juego: 1. Ejecutar el programa con jugar. 2. Se mostrará la tabla con sus respectivas posiciones. 3. El ingresa un número y mediante xmovimiento lo reemplaza por x en la nueva Tabla y muestra la NuevaTabla. 4. Luego el programa responde mediante las reglas de oresponde e inmediatamente muestra la NuevanuevaTabla. 5. Una vez realizada la jugada el programa pedira hacer la siguiente jugada mediante jugardela(NuevanuevaTabla). 6. Comentario: Cabe decir que en la primera jugada la Tabla, NuevaTabla y NuevanuevaTabla son tablas temporales para las siguientes jugadas a realizar.

Ejemplo, donde la computadora (Inteligencia Artificial) gana al :

Ejemplo, donde el gana a la computadora (IA):

Ejemplo, donde el y la computadora (IA) empatan.

CODIGO EN SWI-PROLOG: