如何使用PROLOG计算奇数和偶数

Question

问题是：

当我们输入 mem([1,2,3,4,5]) 时。

我们将得到如下输出：

odd=3

Even=2

我的编码是这样的，但无法运行。可以帮我检查一下我的错误在哪里吗？

内存（X，[X | L]）。

mem(X,[元素|L]):- 内存（[X，L]）。

计数（[]，L，L）。

计数（[X | H]，L1，L2）：- 写（偶数）， X%2=0,nl, 写（奇数）， X%2>=1,nl, 计数（[H]，[X|L1]，L2）。

感谢您的帮助。

Answer 1

您编写的过程执行两种不同的操作，并且实际上并不属于一起。 mem/2 等同于通常内置的 member/2，只不过您的定义包含错误：在第二个子句中 element 是一个原子变量，因此它不会匹配列表中的其他元素。通常的定义是

member(X, [X|_]).
member(X, [_|L]) :- member(X, L).

请注意，此定义不仅会测试术语是否是列表的元素，而且甚至可以用于生成列表。

您到底想在 count/3 中做什么：将列表拆分为两个列表，一个包含奇数，另一个包含偶数；或者计算奇数和偶数元素的数量？可以通过以下方式完成拆分：

count([], [], []).
count([X|L], O, E) :- X rem 2 =/= 0, count(L, [X|O], E).
count([X|L], O, E) :- X rem 2 =:= 0, count(L, O, [X|E]).

请注意，=/= /2 和 =:= / 2 强制将参数计算为算术表达式，而 = /2 试图统一其论点。

可以用类似的方式计算奇数和偶数的数量，并留给读者作为练习。 :-)