Bienvenida

Práctica No. 3

Ejercicio 1.
Supóngase un tablero de Ajedrez, una superficie cuadriculada, con ocho columnas (o renglones).




| | | | | | | | |
| | | | | | | | |
| | | | | | || |
| | | | | | | | |
| | | | | | | | |
| | | | | | | | |
| | | | | | | | |
| | | | | | | | |

Como lo convencional es que existan dos bandos de piezas, cada una cuenta con unaREINA (o dama), que ataca en todas direcciones, pudiendo avanzar tantas casillas (o celdas) como sea necesario. Para este ejercicio no se utilizara ninguna otra pieza que no sea reina.Suponga que va agregando de una en una, primero dos, luego tres, así hasta seis damas, todas contrarias entre sí. Desarrolle un autómata que reconozca si las reinas colocadas no se atacanentre si. Implemente una teoría en Turbo Prolog utilizando una lista para recibir la colocación.

Ejemplo. Tres reinas en las coordenadas (1,2), (5,5), (8,7), las cuales debe reconocer porqueno se atacan; la lista sería: [2,0,0,0,5,0,0,7]



Ejercicio 2.
Escriba la(s) regla(s) necesaria(s) para imprimir una lista de la siguiente forma.
Goal: imprime([a, b, c, d]).
a
b
cd
Yes

Ejercicio 3.
Escriba la(s) regla(s) necesaria(s) para agregar un elemento al principio de una lista.
Goal: agregar(gato,[zorro, zopilote, puerco],L).
L = [gato, zorro, zopilote,puerco]
Yes

Ejercicio 4.
Escriba la(s) regla(s) necesaria(s) para agregar un elemento al final de una lista.
Goal: agregar_final([agua, tierra, viento], fuego, L).
L = [agua, tierra,viento, fuego]
Yes

Ejercicio 5.
Escriba la(s) regla(s) necesaria(s) para invertir los elementos de una lista.
Goal: de_reversa([angel, beto, sandra, zoyla],L).
L = [zoyla, sandra,beto, angel]
Yes

Ejercicio 6.
Escriba la(s) regla(s) necesaria(s) para obtener el último elemento de una lista.
Goal: ultimo([piolin, silvestre, bugss_bunny, porky],X).
X = porky
Yes