home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Liren Large Software Subsidy 9
/
09.iso
/
l
/
l217
/
2.ddi
/
EXAMPLES
/
CH05EX15.PRO
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
Prolog Source
|
1990-03-26
|
213 b
|
11 lines
/*
Copyright (c) 1986, 90 by Prolog Development Center
*/
predicates
classify(integer, symbol)
clauses
classify(0, zero).
classify(X, negative) :- X < 0.
classify(X, positive) :- X > 0.