home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl20.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
385b
|
18 lines
/* Program 20 */
/*
The goal to enter is on page 70 of the manual.
*/
domains
integerlist = integer*
predicates
writelist(integerlist)
write5(integerlist,integer)
clauses
writelist( NL ) :- nl, write5( NL, 0 ), nl.
write5( TL, 5 ) :-!, nl, write5( TL, 0).
write5( [H|T], N ) :- write(H," "),N1=N+1,write5(T,N1).
write5( [], _ ).