Hi, this is a very easy task, I have it already done, below the code:
oddsumr([H],[],0):-
0 is H mod 2, !.
oddsumr([H],[H],H):-
0 =\= H mod 2.
oddsumr([H|T],L,SUM):-
0 is H mod 2,
oddsumr(T,L,SUM).
oddsumr([H|T],L,SUM):-
oddsumr(T,LX,R),
append([H],LX,L),
SUM is R + H.
Please consider my bid! Regards...