home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL47.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  256 b   |  11 lines
  1.               /* Program 47 */
  2. domains
  3.     namelist = name*
  4.     name  = symbol
  5. predicates
  6.     string_namelist(string,namelist)
  7. clauses
  8.     string_namelist(S,[H|T]):-
  9.         fronttoken(S,H,S1),!,string_namelist(S1,T).
  10.     string_namelist(_,[]).
  11.