Подсчитать количество слов

@o_serobaba · Регистрация: 09.07.2013

Author24 — интернет-сервис помощи студентам

Назовём словом последовательность символом ASCII без пробелов,а производную последовательность символов-текстом.Подсчитать количество слов в интерактивно введённом тексте.

@Catstail · 15.03.2015, 12:48

Prolog

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).

@o_serobaba 0 / 0 / 0 Регистрация: 09.07.2013 Сообщений: 69
		1
	Подсчитать количество слов 14.03.2015, 14:43. Показов 4583. Ответов 1 Метки нет (Все метки) Назовём словом последовательность символом ASCII без пробелов,а производную последовательность символов-текстом.Подсчитать количество слов в интерактивно введённом тексте. 0

	15.03.2015, 12:48

Подсчитать количество слов

Решение