Prolog告诉我某个过程似乎已定义时未定义

时间:2019-04-09 23:20:04

标签: prolog undefined undefined-reference swi-prolog

我是Prolog的新手,我很难弄清为什么它告诉我在查询过程时,过程似乎已定义时过程是未定义的。该代码是由我的讲师提供给我的,不允许我对其进行更改,因此它的编译方式或与之相关的内容一定存在问题。我正在使用SWI-Prolog IDE。

我有2个.pl文件:

print-maze.pl:

printMaze() :- boundary(XMAX,YMAX), \+printMaze( p(-1,YMAX), XMAX ).

printMaze( p( _, Y ), _ ) :- Y < -1, fail.
printMaze( p( X, Y ), XMAX ) :- Y >= -1, X > XMAX,
                                    nl,
                                    NewY is Y - 1,
                                    printMaze( p(-1,NewY), XMAX ).
printMaze( p( X, Y ), XMAX ) :- Y >= -1, X =< XMAX,
                                    printSpot( X, Y ),
                                    NewX is X + 1,
                                    printMaze( p(NewX,Y), XMAX ).

printSpot( X, Y ) :- (
                        ( X is -1, Y is -1 );
                        ( boundary( X, _ ), Y is -1 );
                        ( boundary( _, Y ), X is -1 );
                        boundary( X, Y )
                     ),
                     !, write( '+' ).
printSpot( X, Y ) :- ( boundary( X, _ ); X = -1 ),
                        !, N is Y mod 10, write( N ).
printSpot( X, Y ) :- ( boundary( _, Y ); Y = -1 ),
                        !, N is X mod 10, write( N ).
printSpot( X, Y ) :- goal( X, Y ), !, write( '*' ).
printSpot( X, Y ) :- wall( X, Y ), !, write( '-' ).
printSpot( _, _ ) :- write( ' ' ).

和test0.pl:


goal( 2, 2 ).
boundary( 3, 3 ).

wall( 0, 1 ).
wall( 0, 2 ).
wall( 2, 0 ).
wall( 2, 1 ).

% 0,0
% 2,2

:- load_files( 'print-maze.pl' ).

在打开两个文件的同时,在编辑器中依次单击CompileMake, 当我执行查询时:

?- goal(2,2).

我得到了错误:

ERROR: Undefined procedure: goal/2 (DWIM could not correct goal)

当我执行查询时:

?- printMaze().

我得到了错误:

ERROR: Undefined procedure: boundary/2
ERROR: In:
ERROR:    [9] boundary(_7002,_7004)
ERROR:    [8] printMaze at c:/users/jproc/documents/prolog/print-maze.pl:7
ERROR:    [7] <user>

goal/2boundary/2似乎是在test0.pl中定义的,那有什么用呢?

1 个答案:

答案 0 :(得分:1)

我发现问题是我需要去FileConsult ...并选择test0.pl。之后,查询给出了预期的结果。

相关问题