Найти количество тех элементов первого списка, значение которых совпадает с символом «в» - Prolog
Формулировка задачи:
Найти количество тех элементов первого списка, значение которых совпадает с символом «в».
Решение задачи: «Найти количество тех элементов первого списка, значение которых совпадает с символом «в»»
textual
Листинг программы
domains
str=string
strl=str*
predicates
len(str,integer)
task(strl,integer)
clauses
len("",0).
len(X,L) :- frontchar(X,_,X1), len(X1,L1), L=L1+1.
task([],0).
task([H|T],N) :- len(H,0), task(T,N).
task([H|T],N) :- frontchar(H,'b',_), task(T,N1), N=N1+1.
task([H|T],N) :- frontchar(H,Z,_), Z<>'b', task(T,N).