%9. Se da o lista. Daca toate elementele sale sunt mai mici decat 5, obtineti suma acestora.

suma([], S) :- S is 0.
suma([H|T], S) :- (H<5 -> (suma(T,S), X is 0, S is X+H); fail).



%bagof(X,P,L) - elementele X care satisfac proprietatea P sunt puse in lista L, intoarce no.
%setof(X,P,L) - elementele X care satisfac proprietatea P sunt puse in lista L dar se elimina
%duplicatele si lista este sortata crescator lexicografic, intoarce np.
%findall(X,P,L) - daca nu exista niciun element X, care satisface proprietatea P, atunci raspunsul
%este L = [] si yes.

parinte(ion,maria).
parinte(ana,maria).
parinte(ana,maria).
parinte(maria,elena).
parinte(maria,radu).
parinte(elena,nicu).
parinte(radu,gigi).
parinte(radu,dragos).