Подсчитать количество положительных чисел в списке - Prolog

Подсчитать количество положительных чисел в списке; хвоставая рекурсия?

                    Листинг программы
                
q([],0):-!.
q([X|Y],Z):-X>0,!,q(Y,Z1),Z=Z1+1.
q([_|Y],Z):-q(Y,Z).

Листинг программы

q([], R, R).
q([H|T], A, R) :-
    H > 0,
    !,
    AA = A + 1,
    q(T, AA, R).
q([_|T], A, R) :-
    q(T, A, R).

Объяснение кода листинга программы

q([], R, R). - Это базовый случай, когда список пустой, и мы не можем проверить ни одно число на положительность. Поэтому результат будет 0.
q([H|T], A, R) :- - Здесь мы проверяем первое число в списке (H), и если оно больше 0, то увеличиваем счетчик положительных чисел (AA) и рекурсивно вызываем q для оставшейся части списка (T).
q([_|T], A, R) :- - Это рекурсивный случай, когда мы не знаем значение первого элемента списка (потому что он не был присвоен в предыдущем вызове), и мы должны вызвать q для оставшейся части списка (T).
В результате, после обработки всех элементов списка, мы получим общее количество положительных чисел в списке.