Prolog 回溯位置

问题描述

鉴于以下内容

R(p):-
    a(p),b(p),c(p).

c 失败时,它会回溯到 b 并解除 b 的绑定。但是,我希望它从 a 回溯并解除 ba 的绑定。可以这样做吗?

解决方法

您可以使用 if->then 构造提交来自您不想回溯的目标的更改(将它们放在 ->/2 的左侧)。

例如,如果您想跳过 b/1 目标的回溯,您可以这样做:

r(P):-
  a(P),( 
     b(P) 
  -> c(P)
  ).

有这些测试事实:

a([a1|_]).
a([a2|_]).

b([_,b1|_]).
b([_,b2|_]).

c([_,_,c1]).
c([_,c2]).

和这个示例查询:

?- r(P).
P = [a1,b1,c1] ;
P = [a1,c2] ;
P = [a2,c1] ;
P = [a2,c2].