falta terminar

%['/Users/vitorborela/Desktop/projeto.pl'].






acesso(cps, barao, dutra, 100, (1)).
acesso(barao, minas, dompedro, 100, (1)).
acesso(minas,pontagrossa,andorinha,200,(2)).
acesso(pontagrossa,sp,recifinho,200,(2)).



    rotaDireta(CidadeOrigem,CidadeDestino,NomeRodovia):- acesso(CidadeOrigem,CidadeDestino,NomeRodovia,_,(_));
     acesso(CidadeDestino,CidadeOrigem,NomeRodovia, _,(_)).


caminho(FromCity, ToCity, [Rodovia, chegou(ToCity)]) :-
  acesso(FromCity, ToCity,Rodovia,_,(_)).

caminho(FromCity, ToCity, [Rodovia|Connections]) :-
 acesso(FromCity, ToConnection,Rodovia,_,(_)),
  caminho(ToConnection, ToCity, Connections).


%falta adicionar as distancias sendo estas as menores.

menorCaminho(FromCity, ToCity,[Quilometros, chegou(ToCity)]) :-
  acesso(FromCity, ToCity,_,Quilometros,(_)).

menorCaminho(FromCity, ToCity,[Quilometros|Connections]) :-
 acesso(FromCity, ToConnection,_,Quilometros,(_)),
  menorCaminho(ToConnection, ToCity, Connections).

%falta adicionar os tempos sendo estes o tempo da menor dist em km
  tempoMenorCaminho(FromCity, ToCity,[Tempo, chegou(ToCity)]) :-
  acesso(FromCity, ToCity,_,_,(Tempo)).

tempoMenorCaminho(FromCity, ToCity,[Tempo|Connections]) :-
 acesso(FromCity, ToConnection,_,_,(Tempo)),
  tempoMenorCaminho(ToConnection, ToCity, Connections).

  %falta  escolher o nenor tempo indp da distancia e somar o tempo.

  menorTempo(FromCity, ToCity,[Tempo, chegou(ToCity)]) :-
  acesso(FromCity, ToCity,_,_,(Tempo)).

menorTempo(FromCity, ToCity,[Tempo|Connections]) :-
 acesso(FromCity, ToConnection,_,_,(Tempo)),
 menorTempo(ToConnection, ToCity, Connections).