在Prolog中解析具有多个数字的数字

Question

我有以下简单的表达式解析器：

expr(+(T,E))-->term(T),"+",expr(E).
expr(T)-->term(T).

term(*(F,T))-->factor(F),"*",term(T).
term(F)-->factor(F).

factor(N)-->nat(N).
factor(E)-->"(",expr(E),")".

nat(0)-->"0".
nat(1)-->"1".
nat(2)-->"2".
nat(3)-->"3".
nat(4)-->"4".
nat(5)-->"5".
nat(6)-->"6".
nat(7)-->"7".
nat(8)-->"8".
nat(9)-->"9".

然而，这仅支持1位数字。在这种情况下，如何解析具有多个数字的数字？

Answer 1

使用累加器变量，并在递归调用中传递它们。在下文中，A和A1是累加器。

digit(0) --> "0".
digit(1) --> "1".
% ...
digit(9) --> "9".

nat(N)   --> digit(D), nat(D,N).
nat(N,N) --> [].
nat(A,N) --> digit(D), { A1 is A*10 + D }, nat(A1,N).

请注意，第一个nat子句通过使用数字来初始化累加器，因为您不希望匹配空字符串。

Answer 2

nat(0). 
nat(N):-nat(N-1).

但是您使用的语法我不知道（请参阅上面的评论）。

Answer 3

您能提供样本输入吗？

我认为可能会工作：

nat(N)-->number(N).

如果失败，请尝试：

nat(N)-->number(N),!.

！是一个切断它停止统一。你可以在书籍/教程中阅读它。