Question

我正在尝试制作一个分割两个Peano数字的程序。不幸的是，在我寻找其他答案后，循环开始运行。有没有办法避免使用我的方法重复？

    s(0).
    s(X):- X.

    plus(0,Y,Y).
    plus(s(X), Y, s(Z)):- plus(X,Y,Z).

    minus(A, B, C) :- plus(C, B, A).

    division(0, _ , 0).
    division(X, s(0), X).
    division(A, B, s(N)) :- minus(A, B, R), division(R, B, N).

输出

?- division(s(s(s(s(0)))), s(0),X).
X = s(s(s(s(0)))) ;
X = s(s(s(s(0)))) ;
X = s(s(s(s(0)))) ;
X = s(s(s(s(0)))) ;
X = s(s(s(s(0)))) ;
X = s(s(s(s(0)))) ;
false.

输出＃2

?- divide(s(s(s(s(0)))), Y,X).
Y = s(0),
X = s(s(s(s(0)))) ;
Y = s(s(s(s(0)))),
X = s(0) ;
Y = X, X = s(s(0)) ;
Y = s(0),
X = s(s(s(s(0)))) ;
Y = s(0),
X = s(s(s(s(0)))) ;
Y = s(0),
X = s(s(s(s(0)))) ;
Y = s(0),
X = s(s(s(s(0)))) ;
Y = s(0),
X = s(s(s(s(0)))) ;
;ERROR: Out of local stack

Answer 1

正确性。首先，让我们考虑正确性问题。根据您的定义，0/0 = 0.即division(0, 0, 0)。所以你要说0除0是0.另一个问题是s/1的定义。有关详情，请参阅successor-arithmetics。

冗余答案。要确定冗余源，请考虑每个谓词的子句。它们是否可能同时申请相同的地面查询？让我们看看：对于plus/3，这不可能发生，因为事实在第一个参数中需要0，但规则需要s(_)。这可能永远不会同时发生。因此，没有冗余源。但是对于division/3，两者都申请division(0, s(0), 0).此外，第二个事实和规则也适用于此。

非终止。在进入another answer中讨论的技术细节之前，让我们先回顾一下您从4 / X = Y得到的预期。显然，这些解决方案(X,Y): [(1,4),(2,2),(4,1)]。但是0的解决方案呢？

使用Peano数字的分部

1 个答案: