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

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

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


textual

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

qty31([], 0).
qty31([X, X, X | T], Qty) :-
    !,
    qty31([X, X | T], Qty0),
    Qty is Qty0 + 1.
qty31([_ | T], Qty) :-
    qty31(T, Qty).
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник