Prolog Suma co trzeciej liczby z listy.

Za zadanie mam stworzenie programu który będzie z listy wybierał co trzecią liczbę i ją dodawał do siebie.

suma(0,1,[]).
suma(0,1,[]).
suma(A,[,_,B2|O]):-suma(A1,O),A is A1+B2.

suma(A,[1,3,5,4]).

Nie działa mi pod takiej postaci a tak było zrobione do sumy co 2 liczby z listy.

Dawno nic nie pisałem w prologu i nie mogę tego nawet sprawdzić ale to powinno działać.

suma(A,L):-suma(A,L,0).
suma(A,[],A).
suma(A,[_,_,H|T],B):-B2 is B+H, suma(A,T,B2).
suma(A,[_,_],B):- suma(A,[],B).
suma(A,[_],B):-suma(A,[],B).