%grupo2
%2a sem acumulador
somaLista([],0).
somaLista([X|L], S):- somaLista(L, S0), S is S0+X.

%2a com acumulador
somaLista([],S,S).
somaLista([X|L], S0, S):- S1 is S0+X, somaLista(L, S1,S). 
somaListaR(L, S):- somaLista(L, 0,S). 

%2b
prodInter([],[], S, S).
prodInter([X|L1],[Y|L2],S0,S):- S1 is S0+X*Y, prodInter(L1,L2, S1, S).
prodInter(L1,L2, S) :- prodInter(L1,L2,0, S).

%2c