Grupo 1 - ex1 - Exame ALGAV 3-Fev-2014

ex1.pl

dstPosto(pt1,pt2,21).
dstPosto(pt3,pt4,55).
dstPosto(pt5,pt3,30).
dstPosto(pt2,pt5,19).
dstPosto(pt4,pt2,13).
dstPosto(pt1,pt6,28).

abstrobot(r1, [pt4, pt5, pt2, pt6, pt5]).
abstrobot(r2, [pt1, pt3, pt6]).
abstrobot(r3, [pt2, pt5, pt3, pt2, pt6, pt1, pt5]).
abstrobot(_,[]).

abstPosto(P,L):-
                abstrobot(R,Caminho),
                member(P,Caminho),
                contaPassagens(P,Caminho,N),
                write('Robot '), write(R), write(' passa no posto '),write(P), write(N), write('vezes').


contaPassagens(_,[],_).
contaPassagens(P,[H|T],N):-
						P == H,
						N1 is N+1,
						contaPassagens(P,T,N1).