Программа «Дети-2» - демонстрация метода предиката cut (!) и метода отката и отсечения. Программа выводит только первое из найдённых в БД имен Alice.

domains
 
name = symbol
 
predicates
 
child(name)
go_and_get_them
 
clauses
 
child("Tom").
child("Alice").
child("Diana").
child("Alice").
child("Beth").
child("Lee").
child("Alice").
/* Вывести все записи из БД с именем Alice */
go_and_get_them :- write("Список имен"), nl,nl, child(Name), Name="Alice", write("Имя: ",Name),nl, fail.
 
/* Вывести только первое из найдённых в БД имен Alice */
go_and_get_them :- write("Список имен"), nl,nl, child(Name), Name="Alice", write("Имя: ",Name),nl, !, fail.
 
goal
 
go_and_get_them.

Результат:

Список имен

Имя: Alice
Имя: Alice
Имя: Alice

Список имен

Имя: Alice

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