home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl19.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
295b
|
17 lines
/* Program 19 */
/*
The goal to enter is on page 70 of the manual.
*/
domains
integerlist = integer*
namelist = symbol*
predicates
writelist(integerlist)
writelist(namelist).
clauses
writelist([]).
writelist([H|T]) :- write(H," "), writelist(T).