Prolog路径查找代码运行报错，求排查与解决方案

1. 运行报错的根源与解决 #

你碰到的bash: -c: line 1: syntax error near unexpected token ('错误，是因为直接在Bash终端里输入了Prolog查询语句——Bash无法解析Prolog的语法规则。正确的操作流程是：

• 打开终端，输入swipl进入Prolog交互环境
• 将代码保存为.pl后缀的文件（比如graph_paths.pl），在Prolog环境中加载：['graph_paths.pl'].
• 再输入查询语句path(o, m, Path).执行查询

如果用SWI-Prolog运行仍报错，先检查代码文件里的每个语句结尾是否都加了.（Prolog要求每个断言、规则必须以.结尾），这是新手常犯的语法错误。

2. 代码思路与疏漏修正 #

你的核心思路是对的：用递归遍历+已访问节点列表避免环路，最后通过反转得到正序路径。但存在2个关键疏漏：

疏漏1：多余的Z \== Y判断 #

这个判断会跳过“当前节点直接连接到终点”的情况，比如如果有直接边edge(a,b)，查询path(a,b,Path)会找不到路径。直接删掉该判断即可。

修正后的完整代码 #

edge(o,p1).
edge(p1,k).
edge(k,l).
edge(l,c).
edge(c,b).
edge(c,w).
edge(c,m).
edge(l,p2).

% 对外调用接口，初始化已访问列表并反转得到正序路径
path(X,Y,Path) :- path(X,Y,[X],Q), reverse(Q,Path).

% 递归终止条件：当前节点直接连接到终点
path(X,Y,Visited,[Y|Visited]) :- edge(X,Y).

% 递归遍历中间节点，跳过已访问节点避免环路
path(X,Y,Visited,Path) :- 
    edge(X,Z),
    \+ member(Z,Visited),
    path(Z,Y,[Z|Visited],Path).

3. 测试验证 #

加载修正后的代码，执行查询path(o, m, Path).会得到正确结果：

Path = [o, p1, k, l, c, m].

如果需要获取所有可能路径（若存在多条），可以用findall(Path, path(o, m, Path), AllPaths).收集所有路径到列表中。

内容的提问来源于stack exchange，提问作者Elephants unite