Anonymous user
Towers of Hanoi: Difference between revisions
added Prolog
(Added a solution for MATLAB) |
(added Prolog) |
||
Line 891:
end tower;
</lang>
=={{header|Prolog}}==
From Programming in Prolog by W.F. Clocksin & C.S. Mellish
<lang prolog>
hanoi(N) :- move(N,left,center,right).
move(0,_,_,_) :- !.
move(N,A,B,C) :-
M is N-1,
move(M,A,C,B),
inform(A,B),
move(M,C,B,A).
inform(X,Y) :- write([move,a,disk,from,the,X,pole,to,Y,pole]), nl.
</lang>
| |||