%%%%%%% ITINERARIO TURISTICO PARTENZA ROMA %%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Vengono riportate, costruendo un albero, i capoluoghi di regione %
% italiani considerando in una lista le regioni confinanti.        %
% Le due isole si sono ritenute confinanti con la regione più      %
% vicina.							   %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Per ogni ramo dell'albero verrà indicato il costo (in termini    %
% di ore)del cammino da capoluogo a capoluogo.                     %
% La fonte per questo dato è tratta da Google Maps ed è stata      %
% approssimata.                                                    %
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

arco_pesato(roma,firenze,3).
arco_pesato(firenze,genova,3).
arco_pesato(genova,torino,2).
arco_pesato(torino,milano,2).
arco_pesato(torino,aosta,1).
arco_pesato(firenze,bologna,2).
arco_pesato(bologna,venezia,2).
arco_pesato(venezia,trento,2).
arco_pesato(venezia,trieste,2).
arco_pesato(napoli,potenza,2).
arco_pesato(palermo,cagliari,9).
arco_pesato(potenza,bari,2).
arco_pesato(potenza,catanzaro,4).
arco_pesato(catanzaro,palermo,5).
arco_pesato(roma,laquila,1).
arco_pesato(laquila,campobasso,3).
arco_pesato(laquila,ancona,2).
arco_pesato(campobasso,napoli,2).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Verrà chiesto all'utente di inserire la località in cui intende  %
% arrivare.                                                        %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

calcola_itinerario:- write('Salve, le diamo in benvenuto nella nostra agenzia turistica virtuale.Le proporremo, partendo da Roma un percorso turistico interessante.'), write('Inserisca il capoluogo di arrivo:'),nl, read(X), ricerca_localita('roma',X).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% La ricerca della località verrà implementata secondo l'algoritmo %
% di ricerca in profondità.                                        %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%passo base: la località è gia roma

ricerca_localita(X,X):-  write('Sei già qui, buona visita della città!'),nl.

%passo ricorsivo

ricerca_localita(X,Y):-ricerca(X,Y,L,[X],Costo), reverse_append(L,_),write('.Per questo itinerario impiegherà:'), write(Costo), write(' ore di viaggio.') .

ricerca(X,X,L,L,0).
ricerca(X,Y,L,P,O):- arco_pesato(X,W,C),ricerca(W,Y,L,[W|P],K),percorso_pesato(C,K,O).

reverse_append([],[]).
reverse_append([A|C],Q):-reverse_append(C,K),
append(K,[A],Q),write(A), write(' ').

percorso_pesato(A,C,Costo):- Costo is C+A.

not(X):- X,!,fail.
not(_).