/*keresés az "őse" relációval:

el(A,B) jelentése: a gráfban közvetlen él vezet az A csomópontból a B-be.

*/


/*
Ugyanez a keresés különböző gráfokra is alkalmazható, de akkor 
azoknak a a gráfoknak az éleit kell definiálni.

A példaként felhasználható gráfokat modulokba raktam, így könnyen
cserélhetőek, ha az éppen aktuális modul elől kiszedi a komment
jelet (%), a többi elé pedig beírja.

A feladat természetesen modulok nélkül is megoldható, de ekkor
ide kellene másolni az aktuális modulban található adatokat, szabályokat.

(Komment jelek: 
	% egy sort kommentez,
	/*  */  ezek közé bármennyit írhatunk. )


A programhoz (tudásbázishoz) intézett kérdés az "arpadhaz" esetén pl. ez lehet:
	ose(A,B).
vagy:
	ose(árpád,Ki).

vagy találjon ki bármit - ehhez persze érdemes belenézni az adatokba.


A farmernél kérdés lehet pl.:
ose(allapot(bal,bal,bal,bal),allapot(jobb,jobb,jobb,jobb)).


De vigyázat!
A vasut és a farmer példák esetleg verem-túlcsorduláshoz
vezethetnek. Próbálja meg megfejteni, hogy miért!
*/



/* A kereső program: */


:-use_module(arpadhaz).
%:-use_module(kiralynok).
%:- use_module(vasut).
%:-use_module(farmer).

ose(A,B) :- el(A,B).
ose(A,B) :- el(A,C), ose(C,B).