2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Задача по обработке строк на prolog'e (почти сделана)
Сообщение08.03.2011, 18:10 
Задача: подсчитать количество слов в предложении, которые начинаются на заданную букву.
У меня почему-то подсчитывает количество всех слов.
p.s. в своем коде я сравниваю первый символ с буквой 't'
код:

Domains
initialSentence = string
amountOfWords = byte
Predicates
sentence(initialSentence, amountOfWords)
go
Clauses
sentence("",0):-!.
sentence(P,N):- frontToken(P,WRD,Rest),
sentence(Rest, N1),
write(WRD," : "),
frontChar(WRD,Ch,Rest),write(Ch),
Ch='t',
N=N1+1.

go:- write("The Sentence -->"),readln(P),sentence(P,N),
nl, write("Amount of words -->",N),nl.
Goal
go.

 
 
 [ 1 сообщение ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group