%--------------------------------------------------------------%

%   A map with town to town distances                          %

%   From the book:                                             %

%   Russell, S and P. Norvig. Artificial Intelligence:         %

%   A Modern Approach, Prentice Hall, Upper Saddle River,      %

%   New Jersey, 1995                                           %

%--------------------------------------------------------------%

arc('Arad','Zerind',75).

arc('Arad','Sibiu',140).

arc('Arad','Timisoara',118).

arc('Bucharest','Fagaras',211).

arc('Bucharest','Pitesti',101).

arc('Bucharest','Giurgiu',90).

arc('Bucharest','Urziceni',85).

arc('Craiova','Dobreta',120).

arc('Craiova','Rimnicu',146).

arc('Craiova','Pitesti',138).

arc('Dobreta','Mehadia',75).

arc('Dobreta','Craiova',120).

arc('Eforie','Hirsova',86).

arc('Fagaras','Sibiu',99).

arc('Fagaras','Bucharest',211).

arc('Giurgiu','Bucharest',90).

arc('Hirsova','Urziceni',98).

arc('Hirsova','Eforie',86).

arc('Iasi','Neamt',87).

arc('Iasi','Vaslui',92).

arc('Lugoj','Timisoara',111).

arc('Lugoj','Mehadia',70).

arc('Mehadia','Lugoj',70).

arc('Mehadia','Dobreta',75).

arc('Neamt','Iasi',87).

arc('Oradea','Zerind',71).

arc('Oradea','Sibiu',151).

arc('Pitesti','Rimnicu',97).

arc('Pitesti','Craiova',138).

arc('Pitesti','Bucharest',101).

arc('Rimnicu','Sibiu',80).

arc('Rimnicu','Pitesti',97).

arc('Rimnicu','Craiova',146).

arc('Sibiu','Arad',140).

arc('Sibiu','Oradea',151).

arc('Sibiu','Fagaras',99).

arc('Sibiu','Rimnicu',80).

arc('Timisoara','Arad',118).

arc('Timisoara','Lugoj',111).

arc('Urziceni','Bucharest',85).

arc('Urziceni','Hirsova',98).

arc('Urziceni','Vaslui',142).

arc('Vaslui','Iasi',92).

arc('Vaslui','Urziceni',142).

arc('Zerind','Arad',75).

arc('Zerind','Oradea',71).



% Heuristic function: stright line distance to Bucharest

stright_line_distance( Town ,'Bucharest',H):-
		stright_line_distance( Town ,H).
	

stright_line_distance('Arad'     ,366).

stright_line_distance('Bucharest',  0).

stright_line_distance('Craiova'  ,160).

stright_line_distance('Dobreta'  ,242).

stright_line_distance('Eforie'   ,161).

stright_line_distance('Fagaras'  ,178).

stright_line_distance('Giurgiu'  , 77).

stright_line_distance('Hirsova'  ,151).

stright_line_distance('Iasi'     ,266).

stright_line_distance('Lugoj'    ,244).

stright_line_distance('Mehadia'  ,241).

stright_line_distance('Neamt'    ,234).

stright_line_distance('Oradea'   ,380).

stright_line_distance('Pitesti'  , 98).

stright_line_distance('Rimnicu'  ,193).

stright_line_distance('Sibiu'    ,253).

stright_line_distance('Timisoara',329).

stright_line_distance('Urziceni' , 80).

stright_line_distance('Vaslui'   ,199).

stright_line_distance('Zerind'   ,374).