57 lines
875 B
Plaintext
57 lines
875 B
Plaintext
|
|
||
|
|
:- category(descriptors).
|
||
|
|
|
||
|
|
|
||
|
|
:- info([
|
||
|
|
authors is 'Paulo Moura',
|
||
|
|
version is 1.0,
|
||
|
|
date is 2000/2/18,
|
||
|
|
comment is 'Bird descriptors predicates.',
|
||
|
|
source is 'Example adopted from an Amzi! Inc Prolog book.']).
|
||
|
|
|
||
|
|
|
||
|
|
:- public([
|
||
|
|
bill/1,
|
||
|
|
cheek/1,
|
||
|
|
color/1,
|
||
|
|
eats/1,
|
||
|
|
family/1,
|
||
|
|
feed/1,
|
||
|
|
feet/1,
|
||
|
|
flight/1,
|
||
|
|
flight_profile/1,
|
||
|
|
head/1,
|
||
|
|
live/1,
|
||
|
|
neck/1,
|
||
|
|
nostrils/1,
|
||
|
|
order/1,
|
||
|
|
size/1,
|
||
|
|
tail/1,
|
||
|
|
throat/1,
|
||
|
|
voice/1,
|
||
|
|
wings/1]).
|
||
|
|
|
||
|
|
:- public(descriptor/1).
|
||
|
|
|
||
|
|
|
||
|
|
descriptor(bill/1).
|
||
|
|
descriptor(cheek/1).
|
||
|
|
descriptor(color/1).
|
||
|
|
descriptor(eats/1).
|
||
|
|
descriptor(feed/1).
|
||
|
|
descriptor(feet/1).
|
||
|
|
descriptor(flight/1).
|
||
|
|
descriptor(flight_profile/1).
|
||
|
|
descriptor(head/1).
|
||
|
|
descriptor(live/1).
|
||
|
|
descriptor(neck/1).
|
||
|
|
descriptor(nostrils/1).
|
||
|
|
descriptor(size/1).
|
||
|
|
descriptor(tail/1).
|
||
|
|
descriptor(throat/1).
|
||
|
|
descriptor(voice/1).
|
||
|
|
descriptor(wings/1).
|
||
|
|
|
||
|
|
|
||
|
|
:- end_category.
|