Question

我正在寻找以下问题的解决方案：“编写一个Prolog程序来总结给定列表中的所有奇数位置。”

示例查询：

?- odd([1,2,3,4,5],Sum).
Sum = 9.                   % correct as 1+3+5 equals 9

Answer 1

直接实施：

odd([],0).
odd([X|Xs],S) :- even(Xs,S0), S is S0+X.

even([],0).
even([_|Xs],S) :- odd(Xs,S).

示例查询：

?- odd([],S).
S = 0.

?- odd([1],S).
S = 1.
?- odd([1,_],S).
S = 1.

?- odd([1,_,3],S).
S = 4.
?- odd([1,_,3,_],S).
S = 4.

?- odd([1,_,3,_,5],S).
S = 9.

Answer 2

这看起来像是家庭作业，所以我只是给你一个正确方向的推动。问题实际上是两个不同的问题：过滤和求和。分别解决这些问题，并通过编写解决方案来实现奇数。

Answer 3

'奇数位置'元素的总和可以通过以下方式找到;列表从0开始索引：

odd_sum_nth0([_,X|Y], Sum) :-
    odd_sum_aux(Y, X, Sum).

否则，列表是从1开始的索引：

odd_sum_nth1([X|Y], Sum) :-
    odd_sum_aux(Y, X, Sum).

假设：

odd_sum_aux([_, W|X], Y, Sum) :-
    !, Z is W + Y,
    odd_sum_aux(X, Z, Sum).
odd_sum_aux(_, Sum, Sum).

警告经纪人。 ; - ）

Prolog - 在列表中总结“定位”元素

3 个答案: