Вычисление числа вхождения 1-го элемента - Prolog

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

Программу реализовать двумя способами: с использованием стандартных процедур обработки списков и без использования. Задание: Вычисление числа вхождения 1-го элемента.

Решение задачи: «Вычисление числа вхождения 1-го элемента»

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

?-count_first([1, 1, 2, 1, 2, 3, 1], X), write(X), nl.

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

В этом коде:

count_first([1, 1, 2, 1, 2, 3, 1], X) - это выражение, которое вычисляет количество вхождений первого элемента в списке. Здесь [1, 1, 2, 1, 2, 3, 1] - это список, а X - это переменная, которая будет содержать количество вхождений первого элемента.
write(X) - это выражение, которое выводит значение переменной X на экран.
nl - это выражение, которое переводит строку на новую строку (то есть, делает переход на новый абзац). Таким образом, этот код выведет на экран количество вхождений первого элемента в списке [1, 1, 2, 1, 2, 3, 1].