VPF::ханойские башни - Форум программистов

redwhite90

Дата 30.10.2011, 02:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 14.7.2011

Репутация: нет
Всего: нет

помогите понять что не так работает.это известная задача про ханойские башни

Код


domains
integerlist=integer*

predicates
nondeterm hanoi(integer,integerlist,integerlist,integerlist)
nondeterm eq(integer,integer)
clauses
    eq(X,X).
    hanoi(0,X,Y,Z):-write(0).
    hanoi(N,X,Y,Z):-not(eq(N,1)),not(eq(N,0)),N1=N-1,hanoi(N1,X,Z,Y),hanoi(1,X,Y,Z),hanoi(N1,Y,X,Z).
    hanoi(N,[X1|X2],Y,Z):-eq(N,1),hanoi(0,X2,Y,[X1|Z]).    
goal
hanoi(3,[3,2,1], [], []).

arcsupport

Дата 30.10.2011, 09:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 725
Регистрация: 24.10.2008

Репутация: нет
Всего: 2

Очень просто.
Если диск единственный, то перенести его с исходной на целевую,
иначе
  Перенести все, кроме последнего диски, с исходной на временную.
  Перенести оставшийся диск
  Перенести с временной на целевую.
конец

redwhite90

Дата 30.10.2011, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 332
Регистрация: 14.7.2011

Репутация: нет
Всего: нет

а я что не так сделал?

*алгоритм я понимаю - на Си программу написал и она работает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »