我对视觉序言相当陌生,想知道如何集成在此链接上找到的代码。
当我在 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).
所以,我的问题是在这个链接上在哪里插入河内塔的代码?
为方便起见,代码如下:
/* 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).
提前感谢您的帮助。