home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl12.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
414b
|
21 lines
/* Program 12 */
/*
Goals to enter are on page 49 of the manual.
*/
domains
integerlist = integer*
predicates
append(integerlist,integerlist,integerlist)
writelist(integerlist)
clauses
append([],List,List).
append([X|L1], List2, [X|L3]) if
append(L1,List2,L3).
writelist([]).
writelist([Head|Tail]) if
write(Head," "),
writelist(Tail).