Сумма элементов списка (Prolog)

[Flashik66]

Добрый день. Прошу помощи. Уже неделю не могу решить следующую задачу.

Вычислить сумму элементов, стоящих в списке *на нечетных местах, и сумму элементов, стоящих на четных местах

Я уже весь мозг сломал. Все что я смог сделать это вычисление суммы четных и нечетных элементов..Но надо сумма элементов стоящих на четных или нечетных местах.

Вот мой код..Как его переделать??

domains
number_list=integer*.
P=integer.
K=integer.
predicates
nondeterm par(number_list,P)
nondeterm npar(number_list,K)


Clauses
par([],0).
par([H|T],S):-H mod 2=0,
par(T,SS), S = SS + H;
par(T,S).
npar([],0).
npar([H|T],K):-H mod 2=1,
npar(T,KK), K = KK + H;
npar(T,K).
goal
par([1,6,7,2],S).

Заранее спасибо..

[rrrFer]

sum([], _, 0):-!.
sum([H|T], I, R):-
  I mod 2 = 0, !, II = I + 1, sum(T, II, TR), R = TR + H;
  II = I + 1, sum(T, II, R).

Примерно так, не проверял. Но суть должна быть понятна.
Это для четных. Для нечетных так:
NOT(I mod 2 = 0)

То, что я на соседнем форуме написал - то был злой умысел (но формально ответ правильный xD). Догадайся задавать вопросы в правильных местах. Будут более адекватные ответы

[Flashik66]

Все заработало! Спасибо огромное! Большое спасибо!

Вот код программы. Мб кому-то поможет в будущем!

domains
number_list=integer*.
I=integer.
R=integer.
predicates
nondeterm sum(number_list,I,R)


Clauses
sum([], _, 0):-!.
sum([H|T], I, R):-
  I mod 2 = 0, !, II = I + 1, sum(T, II, TR), R = TR + H;
  II = I + 1, sum(T, II, R).
goal
sum([1,2,3,4,5,5,7,8],1,R).

[rrrFer]

domains
list=integer*.

predicates
nondeterm sum(list,integer, integer)

Clauses
sum([], _, 0):-!.
sum([H|T], I, R):-
  I mod 2 = 0, !, II = I + 1, sum(T, II, TR), R = TR + H;
  II = I + 1, sum(T, II, R).
goal
sum([1,2,3,4,5], 0, S).

Примерно так, но ты врешь что неделю пытался разобраться. Это плохо.
Если бы пытался разобраться - ввел бы в гугле "обработка списков в пролог", нашел бы эту статью: http://pro-prof.com/archives/590 , прочитал бы и без труда решил задачу сам.

Ну и уж дописать раздел domains в своем прологе к готовому коду тоже смог бы.

[rrrFer]

Ни с того, ни с сего решил спросить. Нет ли больше проблем с прологом? (но я то знаю, что нет).