|
Задача: подсчитать количество слов в предложении, которые начинаются на заданную букву.
У меня почему-то подсчитывает количество всех слов.
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.
|
