prolog - Prolog - 断言和撤回

Question

我想知道，我知道您可以使用assert添加事实或规则或任何东西，如果您已将谓词声明为-:dynamic，但这仅允许所做的更改仅保留在该会话中，例如，如果您关闭 Prolog 窗口然后数据库更改将丢失。

所以我想知道，有没有办法让assertandretract谓词可以对 Prolog .pl 文件进行永久更改？

谢谢

Answer 1

我可以建议你一个非常简单的方法来做到这一点。

1 ?- assert(a(1)).
true.

2 ?- assert(a(2)).
true.

3 ?- assert(a(3)).
true.

4 ?- a(A).
A = 1 ;
A = 2 ;
A = 3.

5 ?- tell('a_db.txt'), listing(a), told.
true.

然后关闭会话，重新打开。

1 ?- a(A).
ERROR: toplevel: Undefined procedure: a/1 (DWIM could not correct goal)
2 ?- ['a_db.txt'].
% a_db.txt compiled 0.00 sec, 516 bytes
true.

3 ?- a(A).
A = 1 ;
A = 2 ;
A = 3.

4 ?- listing(a).
:- dynamic a/1.

a(1).
a(2).
a(3).

true.