Segundo Projeto - Prolog

entrega ate 15 de outubro a meia noite, via email.

Anexe o arquivo XXXXXXX.pl no seu email (sem compressão) onde XXXXXXX é o RA de um dos autores do projeto. O titulo do email deve ser projeto 2 - prolog Nao esqueça de incluir o nome e RA dos autores do projeto no inicio do arquivo XXXXXXX.pl

O projeto pode ser feito individualmente ou em pares.

Leia um arquivo pelo stdin no formato

[ circ(N,X1,Y1,R) , quad(M, X2, Y2,L), ... ].

onde

• X1, Y1 são as coordenadas do centro de um circulo de raio R, chamando N
• X2, Y2 são as coordenadas do centro de um quadrado com lado L, chamado M. O quadrado é paralelo aos eixos.
• e assim por diante.

dado

quad(a,1,2,10)

então os vertices do quadrado estão em

-4,  7
 6,  7
 6, -3
-4, -3

Note que o arquivo de entrada contem apenas um termo em Prolog (terminado por .) que é uma lista de estruturas.

Imprima no stdout:

• a quantidade de pares de figuras geométricas que tem intercessão não vazia (tanto círculos como quadrados)
• e nas linha seguintes os nomes dos pares das figuras com interseção nao vazia, um por linha.

Cuidado que se a figura A tem intercessao com o B isso só conta uma vez (ja que possivelmente o programa pode considerar que intercessão de A com B é diferente de B com A).

Também não se preocupe com regiões onde mais de 2 figuras fazer intercessão. Se 3 circulos (A e B e C) tem uma intercessão, o seu programa precisa contar apenas 3 (A com B), (A com C) e (B com C). O seu programa rodará da seguinte forma

swipl -q -f seu-prog.pr -t topo  < arqtestes.in

O que é importante é que o predicado topo (sem nenhum argumento) será o único predicado a ser chamado.