przyStole(G,stol(G,_,_,_,_)).
przyStole(G,stol(_,G,_,_,_)).
przyStole(G,stol(_,_,G,_,_)).
przyStole(G,stol(_,_,_,G,_)).
przyStole(G,stol(_,_,_,_,G)).


przyStoleNaprzeciwkoPoPrawej(X,Y,stol(Y,_,_,X,_)).
przyStoleNaprzeciwkoPoPrawej(X,Y,stol(_,Y,_,_,X)).
przyStoleNaprzeciwkoPoPrawej(X,Y,stol(X,_,Y,_,_)).
przyStoleNaprzeciwkoPoPrawej(X,Y,stol(_,X,_,Y,_)).
przyStoleNaprzeciwkoPoPrawej(X,Y,stol(_,_,X,_,Y)).

przyStolePoLewej(X,Y,stol(Y,_,_,_,X)).
przyStolePoLewej(X,Y,stol(X,Y,_,_,_)).
przyStolePoLewej(X,Y,stol(_,X,Y,_,_)).
przyStolePoLewej(X,Y,stol(_,_,X,Y,_)).
przyStolePoLewej(X,Y,stol(_,_,_,X,Y)).

przyStoleObok(X,Y,stol(X,Y,_,_,_)).
przyStoleObok(X,Y,stol(_,X,Y,_,_)).
przyStoleObok(X,Y,stol(_,_,X,Y,_)).
przyStoleObok(X,Y,stol(_,_,_,X,Y)).
przyStoleObok(X,Y,stol(Y,_,_,_,X)).
przyStoleObok(X,Y,stol(Y,X,_,_,_)).
przyStoleObok(X,Y,stol(_,Y,X,_,_)).
przyStoleObok(X,Y,stol(_,_,Y,X,_)).
przyStoleObok(X,Y,stol(_,_,_,Y,X)).
przyStoleObok(X,Y,stol(X,_,_,_,Y)).


przyStoleNaprzeciwkoPoLewej(X,Y,stol(Y,_,X,_,_)).
przyStoleNaprzeciwkoPoLewej(X,Y,stol(_,Y,_,X,_)).
przyStoleNaprzeciwkoPoLewej(X,Y,stol(_,_,Y,_,X)).
przyStoleNaprzeciwkoPoLewej(X,Y,stol(X,_,_,Y,_)).
przyStoleNaprzeciwkoPoLewej(X,Y,stol(_,X,_,_,Y)).

rozwiazanie(U):-
przyStole(gracz(rafal,handlarz,_,_,_),U),
przyStole(gracz(_,fryzjer,_,_,coma),U),
przyStole(gracz(fabian,_,_,pierogi,_),U),
przyStole(gracz(jozef,_,_,grochowka,_),U),
przyStoleNaprzeciwkoPoLewej(gracz(_,prawnik,_,_,_),gracz(jozef,_,_,_,_),U),
przyStole(gracz(_,_,_,pizza,metallica),U),
przyStolePoLewej(gracz(rafal,_,_,_,_),gracz(_,_,kakao,_,_),U),
przyStole(gracz(bogdan,ogrodnik,_,_,_),U),
przyStoleNaprzeciwkoPoPrawej(gracz(_,_,_,schabowy,_),gracz(bogdan,_,_,_,_),U),
przyStoleObok(gracz(_,ogrodnik,_,_,_),gracz(_,_,herbata,_,_),U),
przyStoleNaprzeciwkoPoPrawej(gracz(_,_,_,_,ironmaiden),gracz(_,_,_,_,audioslave),U),
przyStolePoLewej(gracz(_,handlarz,_,_,_),gracz(michal,_,_,_,_),U),
przyStole(gracz(_,_,woda,schabowy,_),U),
przyStole(gracz(_,_,herbata,_,audioslave),U),
przyStole(gracz(michal,_,_,_,ironmaiden),U),
przyStoleObok(gracz(jozef,_,_,_,_),gracz(_,kierowca,_,_,_),U),
przyStoleNaprzeciwkoPoPrawej(gracz(_,_,_,frytki,_),gracz(_,_,herbata,_,_),U),
przyStole(gracz(michal,prawnik,_,_,_),U),
przyStole(gracz(_,_,mleko,grochowka,_),U),
przyStole(gracz(_,prawnik,kakao,_,_),U),
przyStoleObok(gracz(_,_,mleko,_,_),gracz(_,_,_,_,paparoach),U).