home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl46.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
286b
|
17 lines
/* Program 46 */
/*
Goal to be entered is on page 104 of the manual.
*/
domains
charlist=char*
predicates
string_chlist(string,charlist)
clauses
string_chlist("",[]).
string_chlist(S,[H|T]):-
frontchar(S,H,S1),
string_chlist(S1,T).