ch13ex01.pro

来自「prolog,人工智能推理程序,运行环境prolog」· PRO 代码 · 共 17 行

/*
   Turbo Prolog 2.0 Chapter 13, Example Program 1
   
   Copyright (c) 1986, 88 by Borland International, Inc
   
*/
   
domains
   charlist = char*

predicates
   string_chlist(string, charlist)

clauses
   string_chlist("", []).
   string_chlist(S, [H|T]) :- frontchar(S, H, S1), string_chlist(S1, T).