home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Liren Large Software Subsidy 9
/
09.iso
/
l
/
l217
/
2.ddi
/
EXAMPLES
/
CH08EX07.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
|
280 b
|
15 lines
/*
Copyright (c) 1986, 90 by Prolog Development Center
*/
domains
integerlist = integer*
predicates
append(integerlist, integerlist, integerlist)
clauses
append([], List, List).
append([X|L1], List2, [X|L3]) :-
append(L1, List2, L3).