Демонстрация нахождения длин строк, находящихся в базе данных.

/* 27.6.2013
Среда - EZY Prolog
Поиск длины строк, находящихся в базе данных. */
 
 
predicates
 
lin(string)
find_length
 
clauses
 
lin("Открытие ").
lin("").
lin(" Это было путешествие, ").
lin("- путешествие в ночь,").
lin("- путешествие в день,").
lin("- путешествие в мечту").
lin("Когда я достиг этой земли,").
lin("я нашел себя.").
lin(" ").
lin(" Khinzu ").
 
fing_length :- lin(S), str_len(S,L),
write(S, " (",L,")"),nl,
fail.
 
goal
 
fing_length.

Результат:

Открытие  (9)
 (0)
 Это было путешествие,  (23)
- путешествие в ночь, (21)
- путешествие в день, (21)
- путешествие в мечту (21)
Когда я достиг этой земли, (26)
я нашел себя. (13)
  (1)
 Khinzu  (8)

!!Рекомендуем: Что должен знать современный человек? ⇒ Семейная Энциклопедия Здоровья ⇒ Самоанализ. Работа над собой ⇒ Оглавление ⇒ Главная сайта