Codigo en Prolog para resolver las torres de hanoi
Codigo para resolver las torres de hanoi con un disco
%Torres de Hanoi
% Resuelve hanoi con un disco
hanoi(1,A,B,C):-write("Mueve del ",A," al ",C),nl.
hanoi(N,A,B,C):-N>1,M is N-1,hanoi(M,A,C,B),hanoi(1,A,B,C,),hanoi(M,B,A,C).
