home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl08.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
210b
|
12 lines
/* Program 8 */
/*
Goals to enter are on page 37 of the manual.
*/
predicates
isletter(char)
clauses
isletter(Ch) if Ch <= 'z' and 'a' <= Ch.
isletter(Ch) if Ch <= 'Z' and 'A' <= Ch.