Task4.3

%Ханойские башни
%Имеется три стержня: A, B и C. На стержне А надеты N дисков разного диаметра, надетые друг на друга в
%порядке возрастания диаметров. Необходимо переместить диски со стержня А на стержень С используя В как
%вспомогательный, если перекладывать можно только по одному диску и нельзя больший диск класть на меньший.
%На экран выводится порядок перемещения дисков со стержня на стержень.
%сообщение о переносе диска

inform(Location1, Location2):-
       write("Со стержня "), write(Location1), write(" на стержень "), write(Location2), nl.

hanoi(N):-move(N, left, middle, right).

move(1, Left, _, Right):- !, inform(Left, Right).
move(N, Left, Middle, Right):- N1 is N - 1,
                                move(N1, Left, Right, Middle),
                                inform(Left, Right),
                                move(N1, Middle, Left, Right).

%hanoi(3)