/* útvonalkeresés */


start:- write('Melyik varosbol akarsz indulni ?'), read(Start),
           write('Hova akarsz eljutni ?'),  read(Cel),
           ut(Start,Cel).
  
ut(Start,Cel) :- repulo(Start,Cel).
ut(Start,Cel) :- repulo(Start,UjVaros),  ut(UjVaros,Cel).

repulo(X,Y) :- jarat(X,Y) ; jarat(Y,X).
  
                         
jarat(budapest,london).   
jarat(moszkva,frankfurt).                                                
jarat(helsinki,moszkva). 
jarat(kiev,moszkva).   
jarat(london,lisszabon).                                                
jarat(frankfurt,helsinki).   
jarat(budapest,frankfurt).   
jarat(london,frankfurt).  


/*
lehet így is:

jarat('Budapest','London').
*/                                              


/*Vigyázat! Ez a program még messze nem tökéletes :) 


Ha esetleg nem jött volna rá :): indítás:
	
	start.

*/