/*
Próbálja ki!
Ha kipróbálta, utána próbálja meg kölcsönössé tenni az ismeretséget,
mondjuk egy 

	ismeros(A,B) :- .....

szabály segítségével.

Próbálja ki a pletykal szabályt úgy is, hogy az ismeri-t ismeros-re cseréli.

(mindkét esetben nyomkövetéssel is próbálja ki!)

Mit tapasztal?


Kipróbálás: 

a/ Hívja meg a pletykal/2 predikátumot két változóval, és "nyomkodja" a pontosvesszőt - ezt valószínűleg hamar megunja majd.

b/ Az egyik változó helyett írja be valamelyik konstans értéket - ekkor már lehet, hogy a pontosvesszők nyomkodását akár végig is tudja csinálni.

c/ De a legegyszerűbb az, hogy ne is kelljen nyomkodni a pontosvesszőt. Vagyis írjon egy start eljárást, és használja benne a fail predikátumot.

*/


pletykal(A,B):- ismeri(A,B).
pletykal(P,R):- ismeri(P,Q), pletykal(Q,R).

ismeri(jani,zsuzsi).
ismeri(jani,pali).
ismeri(jani,kati).
ismeri(kati,pali).
ismeri(kati,zoli).
ismeri(pali,peti ).
ismeri(pali,zoli).
ismeri(peti,jozsi).
ismeri(jozsi,zsuzsi).
ismeri(jozsi,mari).

