сумма положительный чисел , Пролог - целесобразно так делать

Всем привет,

целесобразно так писать на пролог

list_sum([], 0).
 
list_sum([Head | Tail], TotalSum) :-
Head > 0,
list_sum(Tail, Sum1),
TotalSum is Head + Sum1.

Если числа в листе положительные, слаживаем их, но если они отрицательные ничего не делает, ну как можно поправить данную ситуацию

Нужна еще одна ветка, третья:

    
 
list_sum([], 0).
    
list_sum([Head | Tail], TotalSum) :-
    Head > 0,
    list_sum(Tail, Sum1),
    TotalSum is Head + Sum1.
 
list_sum([_| Tail], TotalSum) :-
    list_sum(Tail, TotalSum).