Документ взят из кэша поисковой машины. Адрес оригинального документа : http://uneex.lorien.cs.msu.su/static/AltDocs_informatika2/Book2/ch_09_model/02_programming/02_declarative/hanoi.pl Дата изменения: Sat Sep 6 12:08:10 2008 Дата индексирования: Fri Jan 16 23:16:50 2009 Кодировка: koi8-r

% move(число_дисков, откуда, куда, через)
move(1,X,Y,_) :-
write('Move top disk from '), %передвиньте верхний диск с
write(X), write(' to '),
write(Y), nl.
move(N,X,Y,Z) :-
N>1,
M is N-1,
move(M,X,Z,Y),
move(1,X,Y,_),
move(M,Z,Y,X).