2013-08-16 1 views
1

Я довольно новичок в визуальном прологе и задаюсь вопросом, как я могу интегрировать код, который я нашел на этом link.Башня Ханоя в Visual Prolog

Когда я создаю консольный проект в Visual Prolog код в main.pro является:

/***************************************************************************** 

         Copyright (c) 2013 My Company 

******************************************************************************/ 

implement main 
    open core 

clauses 
    run():- 
     console::init(), 
     succeed(). % place your own code here 
end implement main 

goal 
    mainExe::run(main::run). 

Итак, мой вопрос, куда вставить код башни Ханоя на этом link?

Для вашего удобства, вот код:

/* Program ch16e05.pro */ 

DOMAINS 
    loc =right;middle;left 

PREDICATES 
    hanoi(integer) 
    move(integer,loc,loc,loc) 
    inform(loc,loc) 

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

    move(1,A,_,C):- 
     inform(A,C),!. 

    move(N,A,B,C):- 
     N1=N-1, move(N1,A,C,B), 
     inform(A,C),move(N1,B,A,C). 

    inform(Loc1, Loc2):-nl, 
     write("Move a disk from ", Loc1, " to ", Loc2). 

Заранее спасибо за любую помощь.

ответ

0

Поскольку ссылка на ваш вопрос не работает, я предоставляю новую ссылку. Вы найдете PDF оригинального турбо Пролог владельцев руководства здесь:

Internet Archive, Turbo Owners Handbook Пролог 1987 (1987)
http://archive.org/details/bitsavers_borlandturOwnersHandbook1987_8438592

В этом есть тот же самый код с ОБЛАСТЯХ, предикаты и ПОЛОЖЕНИЙ. Согласно на следующую запись в википедии вы можете переместить код пролога Prolog практически без изменений в визуальную систему Prolog.

Visual Prolog, Ханой Пример
http://en.wikipedia.org/wiki/Visual_Prolog#Hanoi_Example

Используйте 'предикаты' для общедоступных сказуемого в интерфейсе класса. И используйте «предикаты класса» для ваших частных предикатов в реализации класса.

Bye

0

Первая часть кода находится в основе «современный» класс Visual Prolog, но вторая часть кода находится в старом стиле (Turbo Prolog, PDC Prolog, Visual Prolog < 5,2).