ALGAV - Torres de Hanoi
03/10/13 09:12 Filed in: ALGAV
Exemplo de resolução do problema 3 da Ficha 2:
hanoi(N):-move(N,esquerda,centro,direita,0,_).
move(0,_,_,_,I,I):-!.
move(N,A,B,C,I,I2):-
M is N-1,
move(M,A,C,B,I,I1),
J is I1+1,
informa(A,B,J),
move(M,C,B,A,J,I2).
informa(A,B,I):-
write(I),write(': MOVER DISCO DE '),write(A),write(' PARA '),write(B),nl.
hanoi(N):-move(N,esquerda,centro,direita,0,_).
move(0,_,_,_,I,I):-!.
move(N,A,B,C,I,I2):-
M is N-1,
move(M,A,C,B,I,I1),
J is I1+1,
informa(A,B,J),
move(M,C,B,A,J,I2).
informa(A,B,I):-
write(I),write(': MOVER DISCO DE '),write(A),write(' PARA '),write(B),nl.