/*
Napisati PROLOG predikat koji proverava da li intervali imaju zajednickih tacaka, 
i ako imaju, koje su to tacke. 
Zadaju se: broj N i lista [a1,a2,...,a2N]. 
Treba izvrsiti i kontrolu korektnosti unesenih ulaznih vrijednosti, tj. ukoliko 
su uneseni podaci nekorektni treba prikazati odgovarajuci izvjestaj.
*/
program1993112 :- write('Unesite broj N:'),read(N),nl,
	   write('Unesite listu tacaka koje formiraju intervale:'),nl,
	   read(L),
	   prs(N,L,P1,P2),nl,nl,P1\=P2,
	   write('Presecne tacke su iz intervala:'),nl,
	   write('( '),write(P1),write(' , '),write(P2),write(' )').	
program1193112 :- write('Lista nije korektno zadata!'),nl,
	   write('Clanovi liste moraju biti brojevi'),nl,
	   write('Donja granica svog intervala mora biti manja od gornje').

presek(A1,A2,A3,A4,0,0):-(A2<A3;A1>A4).
presek(A1,A2,A3,A4,A1,A2):-A1>=A3,A2=<A4.
presek(A1,A2,A3,A4,A1,A4):-A1>=A3,A2>A4.
presek(A1,A2,A3,A4,A3,A2):-A1<A3,A2=<A4.
presek(A1,A2,A3,A4,A3,A4):-A1<A3,A2>A4.

kontrola(X,Y):-(integer(X);float(X)),(integer(Y);float(Y)), X=<Y.

prs(1,[X,Y],X,Y):- kontrola(X,Y).
prs(N,[X,Y|R],P1,P2):-kontrola(X,Y),N1 is N-1, prs(N1,R,Z1,Z2),
		      presek(X,Y,Z1,Z2,P1,P2).