Question

我能够从前缀表达式中获得总和，但每当我在列表中添加列表时，程序都不会运行。

expr(Z) --> num(Z).
expr(Z) --> [+], num(X), expr(Y), {Z is X+Y}.
expr(Z) --> [-], num(X), expr(Y), {Z is X-Y}.
num(D) --> [D], {number(D)}.

calculate(L, M) :- expr(M, L, []).

这有效：calculate([+, 2, -, 9, 8], X]

但calculate([+, 2, [-, 9, 8]], X]给出错误。

为了让它在列表中的工作列表我需要什么？

Answer 1

非常简单：

...
expr(Z) --> [L], {calculate(L, Z)}.
calculate(L, M) :- expr(M, L, []).

产量

?- calculate([+,2,-,9,8],X).
X = 3 ;
false.

2 ?- calculate([+,2,[-,9,8]],X).
X = 3 ;
false.

btw calculate / 3最好用短语/ 2表示（至少在SWI-Prolog中）

calculate(L, M) :- phrase(expr(M), L).

但是回溯会出现错误

?- calculate([+,2,[-,9,8]],X).
X = 3 ;
ERROR: Type error: `list' expected, found `8' (an integer)
   Exception: (14) expr(_G2432, [-, 9, 8], []) ? aabort
% Execution Aborted

然后我们需要一名警卫：

calculate(L, M) :- is_list(L), phrase(expr(M), L).

Prolog前缀表达式

1 个答案: