home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
borland
/
jnfb88.arc
/
TAIL.ARC
/
BAKTRAK.PRO
< prev
next >
Wrap
Text File
|
1987-10-21
|
380b
|
24 lines
/* BAKTRAK.PRO */
/* Uses backtracking to print
all solutions to a query */
PREDICATES
country(symbol)
print_countries
CLAUSES
country(england).
country(france).
country(germany).
country(denmark).
print_countries :- country(X),
write(X),
nl,
fail.
print_countries.