Подсчитать количество слов - Prolog
Формулировка задачи:
Назовём словом последовательность символом ASCII без пробелов,а производную последовательность символов-текстом.Подсчитать количество слов в интерактивно введённом тексте.
Решение задачи: «Подсчитать количество слов»
textual
Листинг программы
predicates
num_words(string,char,integer)
clauses
num_words("",_,N):- write(N), nl.
num_words(S,P,N) :- P=' ', frontchar(S,C,T), C<>' ', N1=N+1, num_words(T,C,N1).
num_words(S,_,N) :- frontchar(S,C,T),num_words(T,C,N).
goal
num_words("To be or not to be ",' ',0).