%questao2Lista4
somaLista1([],A,A). %acumulador=0
somaLista1([H|T],A,R) :- A2 is H+A, somaLista1(T,A2,R).

somaLista([],R) :-  somaLista1([],0,R).  %achei que não tinha necessidade.
somaLista([H|T],R) :-  somaLista1([H|T],0,R).