prolog - 如何从 DCG 中的 Horn 子句中通过函数 \+

Question

我想把这样的语法规则翻译成一个子句

char(C) --> [C], { code_type(C, graph), \+ memberchk(C, "()") }.

但不起作用

char(C,In,Out):-
   In=[C|Out],
   code_type(C, graph), 
   \+ memberchk(C, "()").

Answer 1

您可以使用expand_term/2内置的 Prolog 谓词将语法规则扩展为子句：

?- expand_term((char(C) --> [C], { code_type(C, graph), \+ memberchk(C, "()") }), Clause).
Clause = (char(C, [C|_G1665], _G1651):- (code_type(C, graph), \+memberchk(C, [40, 41])), _G1651=_G1665).