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