Como resolver isto? Eu estou a tentar fazer um programa que receba um caminho e traduz em direcoes a seguir (cima(0),direita(90),esquerda(270),baixo(180)). O predicado `vizinha` da a `Dir` uma das direcoes(0,90,180,270) , exemplo:     `test([ (5, 5), (5, 6), (6, 6), (6, 7), (7, 7)],L).` devia dar `L=[0,90,0,90]`, mas da `L=[0]`. Fiz trace e esta ai o link da imagem [O trace][2]


    test([(_,_)],_).
    
    test([A|P],List):-
    	B=(_,_),
    	append([B],_,P),     
    	vizinha(A,B,Dir), 
    	append(List,[Dir],List1), 
    	test(P,List1).


  [1]: https://drive.google.com/file/d/0Bxo5hF15vtsLWDB6bGIydm9WbFE/view?usp=sharing
  [2]: https://drive.google.com/file/d/0Bxo5hF15vtsLbXQ4dXhFVmg4bUE/view?usp=sharing