Prolog/ASP(Clingo) 到 CLIPS 翻译器

Question

有什么简单的方法可以将 Prolog/ASP 代码翻译成 CLIPS 吗？

与此类似，但使用 CLIPS 而不是 Prover9： https://github.com/potassco/anthem/tree/master/examples

Answer 1

当前向链接引擎允许您进行非确定性选择操作时，您可以将某些 ASP 转换为前向链接。结果将是一个析取头逻辑程序。这是一个小 ASP 程序的示例：

:- p, q, r.
{p,r}.
{q} :- p.
{r} :- p.

然后您可以将其重写为前向链接规则。为了简洁起见，我们在前向链接规则的头部使用了 (;)/2 操作：

fail <= posted(p), posted(q), posted(r).
post(p); post(r) <= posted(init).
post(q) <= posted(p).
post(r) <= posted(p).

这是一个跟踪Prolog执行，代码将首先尝试p，但是约束p，q，r将阻止这个答案集元素作为解决方案：

Jekejeke Prolog 3, Development Environment 1.3.2
(c) 1985-2018, XLOG Technologies GmbH, Switzerland

?- post(init).
    0 Call post(init) ? 
    1 Call post(p) ? 
    2 Call clause(q, true) ? 
    2 Fail clause(q, true) ? 
    2 Call post(q) ? 
    3 Call clause(p, true) ? 
    3 Exit clause(p, true) ? 
    3 Call clause(r, true) ? 
    3 Fail clause(r, true) ? 
    2 Exit post(q) ? 
    2 Call post(r) ? 
    3 Call clause(p, true) ? 
    3 Exit clause(p, true) ? 
    3 Call clause(q, true) ? 
    3 Exit clause(q, true) ? 
    3 Call fail ? 
    3 Fail fail ? 
    2 Fail post(r) ? 
    1 Fail post(p) ? 

在上面的第/2 条中确实检查了析取头逻辑程序的主体。然后 Prolog 解释器将回溯到 r 作为答案集元素：

    1 Call post(r) ? 
    2 Call clause(p, true) ? 
    2 Fail clause(p, true) ? 
    1 Exit post(r) ? 
    0 Exit post(init) ? 
Yes