Подсчет количества элементов в БД - Prolog (227262)

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

Всем привет!) Мне нужно подсчитать количество преподавателей, чей стаж(staj) больше 5 лет. Тоесть нужно просто вывести цифру, помогите пожалуйста.

domains
fam=string
dolj=string
staj=integer
kafedra=string
inst=string
 
predicates
prepod(fam,dolj,staj,kafedra,inst)
poiskpoins(string)

clauses
 
prepod(ivanov,stPrepod,5,itb,iIT).
prepod(petrov,professor,10,itb,iIT).
prepod(sidarov,stPrepod,3,pOEVM,iIT).
prepod(pershin,profesor,5,fizika,iIT).
prepod(smirnova,stPrepod,2,liF,gI).
prepod(karnuhina,aspirant,2,liF,gI).
 
poiskpoins(V):-
prepod(X,X1,_,X2,V),
write(X," ",X1," ",X2),nl,
fail.

Решение задачи: «Подсчет количества элементов в БД»

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

findall(X, staj_gt(X, 5), L).

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

В данном коде используется функция findall для поиска всех элементов в базе данных, удовлетворяющих условию staj_gt(X, 5), где X - переменная, а staj_gt - это предикат, проверяющий, что значение X больше 5. Результатом работы функции findall является список L, содержащий все найденные элементы. Таким образом, код выполняет подсчет количества элементов в базе данных, удовлетворяющих условию staj_gt(X, 5) и сохраняет их в список L.