在 Prolog 中添加偶数元素 - “amt”问题多变的

Question

我正在尝试弄清楚如何在列表中添加偶数元素（我已经研究过示例，但还不能自己完成，需要您的帮助来确定我对特定领域缺乏理解）。

我使用的输入是 start([1,2,3,4,5])。没有编译错误，但我没有得到任何输出。我不确定逻辑错误是什么..你能建议一下吗？

（请参阅下面的最新更新，修改我的代码后，现在它可以工作了，问题在于我使用'amt'的方式，但我不知道为什么！）

原始代码这不起作用：

start(X):- add(X,1,amt), write(amt).

add([],_,0).  
add([H|Tail],Cnt,amt):-
  T is (Cnt mod 2), T == 0, Cnt1 is Cnt + 1, add(Tail,Cnt1,Y), amt is H+Y; 

  T is (Cnt mod 2), T =\=0, Cnt1 is Cnt + 1, add(Tail, Cnt1, amt).

最新更新：

我用“S”替换了“amt”，它起作用了！但为什么它不能与“amt”一起使用呢？

这是修改后的代码，可以正常工作：

start(X):- add(X,1,S), write(S).

add([],_,0).  
add([H|Tail],Cnt,S):-
  T is (Cnt mod 2), T == 0, Cnt1 is Cnt + 1, add(Tail,Cnt1,Y), S is H+Y; 

  T is (Cnt mod 2), T =\=0, Cnt1 is Cnt + 1, add(Tail, Cnt1, S).

谢谢:)

Answer 1

您打算显示 amt1 吗？