Функция: вычислить количество троек подряд идущих элементов числового списка - Prolog

Формулировка задачи:

написать функцию, вычисляющую количество троек подряд идущих элементов числового списка, в каждой из которых все элементы одинаковы. Например (1 1 3 3 3 3 4 3 4 4 4 2 1 1 1) -> 4.

Код к задаче: «Функция: вычислить количество троек подряд идущих элементов числового списка - Prolog»

textual
qty31([], 0).
qty31([X, X, X | T], Qty) :-
    !,
    qty31([X, X | T], Qty0),
    Qty is Qty0 + 1.
qty31([_ | T], Qty) :-
    qty31(T, Qty).

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ