列表中偶数的Prolog长度

Question

我是Prolog的初学者，我有以下长度函数：

mylen([H|Lc],N) :- mylen(Lc,M),N is M+1.
mylen([],0).

我想知道是否有一种简单的方法可以查询解释器来计算列表中偶数列表的长度，如果没有，我将如何只对偶数递增N。谢谢

Answer 1

您可能正在寻找类似的

mylen([H|Lc],N) :- 
X is mod(H,2),
X == 0,
mylen(Lc,M),
N is M+1.
mylen([],0).
mylen([H|Lc],N) :-
mylen(Lc, M),
N = M.