逻辑程序设计语言Prolog

Prolog 概念

Prolog（PROgramming in LOGic的缩写）语言是一种基于 [Horn 子句](http://www.baidu.com)的逻辑型程序设计语言，也是一种陈述性语言。 Prolog 与人工智能的知识表示、自动推理、图搜索、产生式系统和专家（知识）系统有着天然的联系，很适合智能程序设计。 若想详细了解可自行百科：http://baike.baidu.com/item/Prolog

今天我们先搞明白 Prolog 语言的基本原理，然后再详细学习一下 Turbo Prolog 语言程序设计。选择 Turbo Prolog 是因为它是一个功能较齐全的逻辑程序语言，其程序的可读性强而且简单易学，是一个很好的教学语言。另外， Turbo Prolog 程序既可以在 Trubo Prolog 和 PDC Prolog 环境下运行或编译，又可以在当前流行的可视化语言 Visual Prolog 的环境下运行或编译。

Prolog 基础

一、Prolog 的语句

Prolog 语言仅有三种语句：事实（Fact）、规则（Rule）和问题（Question）。

1、事实

格式：

 
   <谓词名>
     ( 
    <项表>
      ). 
     
   

• 谓词名是以大小写字母开头，字母、数字、下划线等组成的字符串；
• 项表是以逗号隔开的项序列。

Prolog 中的项包括由常量或变量表示的简单对象以及函数、结构和表等，即事实的形式是一个原子谓词公式。

功能：

一般表示对象的性质或关系。

举个例子：

student(john). like(mary, music). 

这就是 Prolog 中两个合法的事实。分别表示“约翰是学生”和“玛丽喜欢音乐”。

abc. repeat. 

等也是允许的。

2、规则

格式：

 
   <谓词名>
     ( 
    <项表>
      ):- 
     <谓词名>
       ( 
      <项表>
        ){, 
       <谓词名>
         ( 
        <项表>
          )}. 
         
        
       
      
     
   

• “:-”号表示“if”（也可以直接写为 if ），其左部的谓词是规则的结论（亦称为头），右部的谓词是规则的前提（亦称为体）；
• “{}”表示零次或多次重复，逗号表示 and（逻辑与）。

即规则的形式是一个逻辑蕴涵式。

功能：

一般表示对象间的因果关系、蕴含关系或对应关系。

举个例子：

bird(X) :- animal(X), has(X, feather). grandfather(X, Y) :- father(X, Z), father(Z, Y). 

分别表示“如果 X 是动物，并且 X 有羽毛，则 X 是鸟”和“ X 是Y 的祖父，前提是如果存在 Z，X 是 Z 的父亲并且 Z 又是 Y 的父亲”。

run :- start, step1(X), step2(X), end. 

也是一个合法规则。

3、问题

格式：

?- 
   <谓词名>
     ( 
    <项表>
      ){, 
     <谓词名>
       ( 
      <项表>
        )}. 
       
      
     
   

功能：

问题表示用户的询问，它就是程序运行的目标。

举个例子：

?-student(john). ?-like(mary, X). 

分别表示“约翰是学生吗？”和“玛丽喜欢谁？”。

问题可以与规则及事实同时一起给出，也可以在程序运行时临时给出。

二、Prolog 的程序

Prolog 程序一般由一组事实、规则和问题组成。问题是程序执行的起点，称为程序的目标。

likes(bell, sports). likes(mary, music). likes(mary, sports). likes(jane, smith). friend(john, X) :- likes(X, reading), likes(X, music). friend(john, X) :- likes(X, sports), likes(X, music). ?- friend(john, Y). 

Prolog 程序中的目标还可以变化，也可以含有多个语句（上例中只有一个）。如果有多个语句，则这些语句称为子目标。例如对上面的程序，其问题也可以是：

 ?-likes(mary, X). 或 ?-likes(mary, music). 或 ?-friend(X, Y). 或 ?-likes(bell, sports), likes(mary, music), friend(john, X). 

等。但对于不同的问题，程序运行的结果一般是不一样的。

还需说明的是，Prolog程序中的事实或规则一般称为它们对应谓词的子句。例如，上面程序中的前4句都是谓词 likes 的子句。 Prolog 规定，同一谓词的子句应排在一起。从语句形式和程序组成来看， Prolog 就是一种基于 Horn 子句的逻辑程序。这种程序要求用事实和规则来求证询问，即证明所给出的条件子句和无条件子句与目标子句是矛盾的，或者说程序中的子句集是不可满足的。这就是所谓的 Prolog 的说明性语义。

从 Prolog 的语句来看， Prolog 语言的文法结构相当简单。但由于它的语句是 Horn 子句，而 Horn 子句的描述能力是很强的，所以 Prolog 的描述能力也是很强的。例如，当它的事实和规则描述的是某一学科的公理，那么问题就是待证的命题；当事实和规则描述的是某些数据和关系，那么问题就是数据查询语句；当事实和规则描述的是某领域的知识，那么问题就是利用这些知识求解的问题；当事实和规则描述的是某初始状态和状态变化规律，那么问题就是目标状态。所以， Prolog 语言实际是一种应用相当广泛的智能程序设计语言。从上面最后一个目标可以看出，同过程性语言相比，对于一个 Prolog 程序，其问题就相当于主程序，其规则就相当于子程序，而其事实就相当于数据。

三、Prolog 程序的运行机理

要想了解 Prolog 的运行机理，首先需要了解几个基本概念。

1、自由变量与约束变量

Prolog中把无值的变量称为自由变量，有值的变量称为约束变量。一个变量取了某值就说该变量约束于某值，或者说该变量被某值所约束，或者说该变量被某值实例化了。在程序运行期间，一个自由变量可以被实例化而成为约束变量，反之，一个约束变量也可被解除其值而成为自由变量。

2、匹配合一

两个谓词可匹配合一，是指两个谓词的名相同，参量项的个数相同，参量类型对应相同，并且对应参量项还满足下列条件之一。

1. 如果两个都是常量，则必须完全相同。
2. 如果两个都是约束变量，则两个约束值必须相同。
3. 如果其中一个是常量，一个是约束变量，则约東值与常量必须相同。
4. 至少有一个是自由变量。

例如下面的两个谓词：

prel("ob1", "ob2", Z) prel("ob1", X, Y) 

3、回溯

所谓回溯，就是在程序运行期间，当某一个子目标不能满足（即谓词匹配失败）时，控制就返回到前一个已经满足的子目标（如果存在的话），并撤销其有关变量的约束值，然后再使其重新满足。成功后，再继续满足原来的子目标。如果失败的子目标前再无子目标，则控制就返回到该子目标的上一级目标（即该子目标谓词所在规则的头部）使它重新匹配。回溯也是 Prolog 的一个重要机制。

不懂没关系，下面有例子，看完这个 Prolog 程序的运行过程就懂了。

有了上面的基本概念，下面就介绍所 Prolog 程序的运行过程。我们仍以上面给出的 Prolog 程序“程序0”为例。

设所给的询问是：

?-friend(john, Y). (john和谁是朋友？) 

则求解目标为：

friend(john, Y). 

这时，系统对程序进行扫描，寻找能与目标谓词匹配合一的事实或规则头部。显然，程序中前面的 4 个事实均不能与目标匹配，而第 5 个语句的左端即规则为：

friend(john, Y) :- likes(X, reading), likes(X, music). 

的头部可与目标谓词匹配合一。但由于这个语句又是一个规则，所以其结论要成立则必须其前提全部成立。于是，对原目标的求解就转化为对新目标：

likes(X, reading), likes(X, music). 

的求解。这实际是经过归结，规则头部被消去，而目标子句变为：

?- likes(X, reading), likes(X, music). 

现在依次对子目标:

likes(X, reading)和 likes(X, music) 

friend(john, X) :- likes(X, reading), likes(X, music). 

的整体失败。于是，刚才的子目标：

likes(X, reading)和 likes(X, music) 

被撤销，系统又回溯到原目标 friend（john, X）。这时，系统从该目标刚才的匹配语句处（即第 5 句）向下继续扫描程序中的子句，试图重新使原目标匹配，结果发现第 6 条语句的左部，即规则

friend(john, X) :- likes(X, sports), likes(X, music). 

的头部可与目标谓词匹配。但由于这个语句又是一个规则，于是，这时对原目标的求解就又转化为依次对子目标：

likes(X, sports)和 likes(X, music) 

的求解。这次子目标 likes（X, sports）与程序中的事实立即匹配成功，且变量 X 被约束为 bell。于是，系统便接着求解第 2 个子目标。由于变量 X 已被约束，所以这时第 2 个子目标实际上已变成：

likes(bell, music). 

由于程序中不存在事实 likes（bell, music），所以该目标的求解失败。于是，系统就放弃这个子目标，并使变量 X 恢复为自由变量，然后回溯到第一个子目标，重新对它进行求解。由于系统已经记住了刚才已同第一子目标谓词匹配过的事实的位置，所以重新求解时，便从下一个事实开始测试。易见，当测试到程序中的第 3 个事实时，第一个子目标便求解成功，且变量 X 被约束为 mary 。这样，第 2 个子目标也就变成：

likes(mary, music). 

Y = mary 

上述程序的运行是一个通过推理实现的求值过程。我们也可以使它变为证明过程。例如，把上述程序中的询问改为：

friend(john, mary). 

friend(john, smith). 

则系统会回答“no”。

从上述程序的运行过程来看， Prolog 程序的执行过程是一个（归结）演绎推理过程。其推理方式为反向推理，控制策略是深度优先且有回溯机制，具体实现方法是：自上而下匹配子句；从左向右选择子目标；（归结后）产生的新子目标总是插入被消去的目标处（即目标队列的左部）。Prolog 的这种归结演绎方法被称为 SLD（Linear resolution with Selection function for Definite clause）归结， 或 SLD 反驳 – 消解法。这样，SLD 归结就是 Prolog 程序的运行机理，也就是所谓的 Prolog 语言的过程性语义。

Turbo Prolog 程序设计

Turbo Prolog 是一个编译型语言，1986 年由美国的 BORLAND 公司推出，运行在 IBM PC 系列机及其兼容机上。Turbo prolog 除了具有基本 prolog 的逻辑程序特点外还具有速度快、功能强，具有集成化开发环境，可同其他语言接口，能实现动态数据库和大型外部数据库，可直接访问机器系统硬软件和具有图形、窗口功能等一系列特点。

本次我们以 Turbo prolog（2.0版）为例，介绍 prolog程序设计。

一、程序结构

一个完整的 Turbo prolog 程序一般包括常量段、领域段、数据库段、谓词段、目标段和子句段 6 个部分。各段以其相应的关键字 constants、domains、database、predicates、goal 和 clauses 开头加以标识。另外，在程序的首部还可以设置指示编译程序执行特定任务的编译指令；在程序的任何位置都可设置注解。总之，一个完整的 Turbo prolog（2.0版）程序的结构如下：

/* < 注 释 > */ 
    <编译指令>
      constants 
     <常量说明>
       domains 
      <域说明>
        database 
       <数据库说明>
         predicates 
        <谓词说明>
          goal 
         <目标语句>
           clauses 
          <子句集> 
           
          
         
        
       
      
    

当然，一个程序不一定要包括上述所有段，但一个程序至少要有一个 predicates 段、clauses 段和 goal 段。在大多数情形中，还需要一个 domains段，以说明表、复合结构及用户自定义的域名。如若省略 goal 段，则可在程序运行时临时给出，但这仅当在开发环境中运行程序时方可给出。若要生成一个独立的可执行文件，则在程序中必须包含 goal 段。另外，一个程序也只能有个 goal 段。
在模块化程序设计中，可以在关键字 domains， predicates 及 database前加上 global，以表明相应的说明是全局的，以便作用于几个程序模块。

举个例子，如果要将上面的 Prolog 程序“程序0”作为 Turbo prolog程序，则应改写为

DOMAINS name = symbol PREDICATES likes(name, name) friend(name, name) GOAL friend(john,Y), write("Y = ", Y). CLAUSES likes(bell, sports). likes(mary, music). likes(mary, sports). likes(jane, smith). friend(john, X) :- likes(X, sports), likes(X, music). friend(john, X) :- likes(X, reading), likes(X, music). 

下面对程序结构中的几个段作以说明。

领域段 该段说明程序谓词中所有参量项所属的领域。领域的说明可能会出现多层说明，直到说明到 Turbo prolog 的标准领域为止（如上例所示）。Turbo prolog 的标准领域即标准数据类型，包括整数、实数、字符、串和符号等，其具体说明如下表所示。

谓词段 该段说明程序中用到的谓词的名和参量项的名（但 Turbo prolog的内部谓词无须说明）。

子句段 该段是 Turbo prolog 程序的核心，程序中的所有事实和规则就放在这里，系统在试图满足程序的目标时就对它们进行操作。

目标段 该段是放置程序目标的地方。目标段可以只有一个目标谓词，例如上面的例子中就只有一个目标谓词；也可以含有多个目标谓词，如：

goal readint(X), Y = X+3, write("Y ='%Y). 

就有3个目标谓词。这种目标称为复合目标。

二、数据与表达式

1、领域

 
    <函子>
      ( 
     <参量表>
       ) 
      
    

其中函子及参量的标识符与谓词相同。注意，这意味着结构中还可包含结构。所以，复合对象可表达树形数据结构。例如下面的谓词：

likes("Tom", sports(football, basketball, table_tennis)). 

中的

sports(football, basketball, table_tennis) 

就是一个结构，即复合对象。又如：

person("张华", student("清华大学"), address("中国", "北京")). reading("王宏", book("人工智能技术导论", "西安电子科技大学出版社")). friend(father("Li"), father("Zhao")). 

likes("Tom", sports(football, basketball, table_tennis)). 

在程序中可说明如下：

domains name = symbol sy = symbol sp = sports(sy, sy, sy) predicates likes(name, sp) 

[x1, x2, ..., xn] 

其中xi(i=1,2,...,n)为 Prolog 的项，一般要求同一个表的元素必须属于同一领域。不含任何元素的表称为空表，记为[]。例如下面就是一些合法的表。

[1，2，3] [ apple, orange, banana, grape, cane] ["Prolog", "MAENS", "PROGRAMMING", "in logic"] [[a, b], [c, d], [e]] [] 

表的最大特点是其元素个数可在程序运行期间动态变化。表的元素也可以是结构或表，且这时其元素可以属于不同领域。例如：

[name("LiMing"), age(20), sex(male), address(xian)] [[1, 2], [3, 4, 5], [6, 7]] 

表的说明方法是在其组成元素的说明符后加一个星号*。如：

domains lists = string* predicates pl(lists) 

p([name("Liming"), age(20)]) 

则需这样说明：

domains rec=seg* seg=name(string); age(integer) predicates p(rec) 

2、常量与变量

由上面的领域可知， Turbo Prolog的常量有整数、实数、字符、串、符号、结构、表 和 文件 这8种数据类型。同理， Turbo Prolog 的变量也就有这8种取值。另外，变量名要求必须是以大写字母或下划线开头的字母、数字和下划线 序列，或者只有一个下划线（这种变量称为无名变量）。

3、算术表达式

即， Turbo Prolog 中算术表达式采用通常数学中使用的中缀形式。这种算术表达式为 Prolog 的一种异体结构，若以 Prolog 的结构形式来表示，则它们应为：

+(X, *(Y, Z)) -(*(A, B), /(C, D)) mod(U, V) 

Y is X + 5 或 Y = X + 5 （*） 

就使变量 Y 实例化为 X+5 的值（当然 X 也必须经已被某值实例化），可以看出，这里对变量 Y 的实例化方法类似于其他高级程序语言中的“赋值”，但又不同于赋值。例如，在 Prolog 中下面的式子是错误的：

X = X + 1 

需要说明的是，虽然 Prolog 是一种逻辑程序设计语言，但在目前的硬件条件下却非突破逻辑框架不可。这是因为有些实用操作是无法用逻辑描述的（如输入与输出），有些算术运算在原则上可用逻辑描述，但这样做效率太低。为此， Prolog 提供了若干内部谓词（亦称 预定义谓词），来实现算术运算、输入与输出等操作。所谓内部谓词，就是 Prolog 的解释程序中，预先用实现语言定义好的用户可直接作为子目标调用的谓词。一般的 Prolog 实用系统都配有 100 个以上的内部谓词，这些内部谓词涉及输入输出、算术运算、搜索控制、文件操作和图形声音等方面，它们是实用 Prolog 程序设计所必不可少的。这样，上面的（*）式以及下面的关系表达式称为异体谓词。

4、关系表达式

Turbo Prolog 提供了 6 种常用的关系运算，即 小于、小于或等于、等于、大于、大于或等于、不等于，其运算符依次为：

<, <=, =, >, >=, <> 

Turbo Prolog 的关系表达式的形式和数学中的也基本一样，例如：

即， Turbo Prolog 中的关系式也用中缀形式。当然，这种关系式为 Turbo Prolog 中的异体原子。若按 Turbo Prolog 中的原子形式来表示，则上面的两个例子为：

>=(X +1, Y) 和 <>(X, Y) 

所以上述 6 种关系运算符，实际上也就是 Turbo Prolog 内部定义好了的 6 个谓词。这 6 个关系运算符可用来比较两个算术表达式的大小。例如：

brother(Name1, Name2) :- person(Name1, man, Age1), person(Name2, man, Age2), mother(Z, Name1), mother(Z, Name2), Age1 > Age2. 

需要说明的是，“=”的用法比较特殊，它既可以表示比较，也可以表示约束值，即使在同一个规则中的同一个“=”也是如此。例如：

p(X, Y, Z) :- Z = X + Y. 

当变量 X、Y、Z全部被实例化时，“=”就是比较符。如对于问题：

Goal: p(3, 5, 8). 

机器回答“yes”，而对于：

Goal: p(3, 5, 7). 

机器回答“no”。即这时机器把 X+Y 的值与Z的值进行比较。但当 X，Y 被实例化，而 Z 未被实例化时， “=”号就是约束符，如：

Goal: P(3, 5, Z). 

机器回答“Z = 8”。这时，机器使 Z 实例化为 X+Y 的结果。

三、输入与输出

虽然 Prolog 能自动输出目标子句中的变量的值，但这种输出功能必定有限，往往不能满足实际需要；另外，对通常大多数的程序来说，运行时从键盘上输人有关数据或信息也是必不可少的。为此每种具体 Prolog 一般都提供专门的输人和输出谓词，供用户直接调用。例如，下面就是 Turbo Prolog 的几种输入输出谓词：

1. readin(X)。这个谓词的功能是从键盘上读取一个字符串，然后约束给变量 X 。
2. readint(X)。这个谓词的功能是从键盘上读取一个整数，然后约束给变量 X，如果键盘上打入的不是整数，则该谓词失败。
3. readreal(X)。这个谓词的功能是从键盘上读取一个实数，然后约束给变量 X，如果键盘上打入的不是实数，则该谓词失败。
4. readchar(X)。这个谓词的功能是从键盘上读取一个字符，然后约束给变量 X，如果键盘上打入的不是单个字符，则该谓词失败。
5. write(X1, X2, …, Xn)。这个谓词的功能是把项 Xi(i=1,2,…,n) 的值显示在屏幕上或者打印在纸上，当有某个 Xi 未实例化时，该谓词失败。其中的 Xi 可以是变量，也可以是字符串或数字。例如：
   write("computer", "Prolog", Y, 1992)
   
   
6. nl（换行谓词）。它使后面的输出（如果有的话）另起一行。另外，利用 write的输出项“\n”也同样可起到换行作用。例如：
   write("name"), nl, write("age")
   与
   write("name", "\n", "age")
   的效果完全一样。

   
   
   
   
   
   
   
   

PREDICATES student(integer, string, real) grade GOAL grade. CLAUSES student(1, "张三", 90.2). student(2, "李四", 95.5). student(3, "王五", 96.4). grade :- write("请输人姓名："), readln(Name), student(_, Name, Score), nl, write(Name, "的成绩是", Score). grade :- write("对不起，找不到这个学生！"). 

下面是程序运行时的屏幕显示

请输入姓名：王五 王五的成绩是96.4 

四、分支与循环

Prolog 本来没有分支和循环语句，但可以利用其逻辑机制实现分支和循环效果。

1、分支

对于通常的 IF-THEN-ELSE 分支结构，Prolog可用两条同头的（同头即指结论相同）并列规则实现。例如，将：

IF X>0 THEN X:=1 ELSE X:=0 

用 Prolog实现则是：

br :- X > 0, X = 1. br :- X = 0. 

类似地，对于多分支，可以用多条规则实现。例如：

br :- X > 0, X = 1. br :- X = 0, X = 0. br :- X < 0, X = -1. 

2、循环

Prolog 可以实现计循环次数的 FOR 循环，也可以实现不计循环次数的 DO 循环。

student(1, "张三", 90.2). student(2, "李四", 95.5). student(3, "王五", 96.4). print :- student(Number, Name, Score), write(Number, Name, Score), nl, Number = 3. 

student(1, "张三", 90.2). student(2, "李四", 95.5). student(3, "王五", 96.4). print :- student(Number, Name, Score), write(Number, Name, Score), nl, fail. print :-. 

五、动态数据库

动态数据库就是在内存中实现的动态数据结构。它由事实组成，程序可以对它操作，所以在程序运行期间它可以动态变化。Turbo Prolog 提供了 3 个动态数据库操作谓词，即：

asserta(< fact >) assertz(< fact >) retract(< fact >) 

其中 fact 表示事实。这 3 个谓词的功能如下：

• asserta(< fact >) 把 fact 插入当前动态数据库中的同名谓词的事实之前。
• assertz(< fact >) 把 fact 插入当前动态数据库中的同名谓词的事实之后。
• retract(< fact >) 把 fact 从当前动态数据库中删除。

例如语句：

asserta(student(20, "李明", 90.5)). 

将在内存的谓词名为 student 的事实前插入一个新事实：

student(20, ''李明", 90.5) 

如果内存中还没有这样的事实，则它就是第一个。又如语句：

retract(student(20, _, _)). 

将从内存的动态数据库中的删除事实：

student(20, _, _) 

它可解释为学号为 20 的一个学生的记录。注意，这里用了无名变量 “_”。
可以看出，Turbo Prolog 提供的动态数据库机制，可非常方便地实现堆栈、队列等动态数据结构，提供的数据库操作谓词大大简化了编程。
另外，Turbo Prolog 还提供了两个文件操作谓词：

save(< filename >). consult(< filename >). 

其中 save 可将当前内存中的事实存入文件“filename”中，consult 则将文件“filename”中的事实调入内存。

六、表处理与递归

1、表头与表尾

表是 Prolog 中一种非常有用的数据结构。表的表述能力很强，数字中的序列、集合，通常语言中的数组、记录等均可用表来表示。表的最大特点是其长度不固定，在程序的运行过程中可动态地变化。具体来讲，就是在程序运行时，可对表施行一些操作，如给表中添加一个元素，或从中删除一个元素，或者将两个表合并为一个表等。用表还可以方便地构造堆栈、队列、链表、树等动态数据结构。
表还有一个重要特点，就是它可分为头和尾两部分。表头是表中第一个元素，而表尾是表中除第一个元素外的其余元素按原来顺序组成的表。例如下面的表所示就是一个例子。

2、表的匹配合一

在程序中是用“|”来区分表头和表尾的，而且还可以使用变量。例如一般地用[H|T]来表示一个表，其中 H、T 都是变量，H 为表头，T为表尾。注意，此处 H 是一个元素（表中第一个元素），而 T 则是一个表（除第一个元素外表中的其余元素按原来顺序组成的表）。表的这种表示法很有用，它为表的操作提供了极大的方便。如下面的表所示即为用这种表示法通过匹配合一提取表头和表尾的例子。

还需说明的是，表中的“|”后面只能有一个变量。例如写法 [X | Y, Z] 就是错误的。但竖杠前面的变量可以多于一个。例如写法 [ X, Y | Z] 是允许的。这样，这个表同 [a, b, c] 匹配合一后，有：

X = a, Y = b, Z = [c] 

另外，竖杠的前面和后面也可以是常量，例如 [a | Y] 和 [X | b] 都是允许的，但需要注意，后一个表称为无尾表，如果它同表 [a | Y] 匹配，则有：

X = a, Y = b （而不是 Y = [b]） 

如果无“|”，则不能分离出表尾。例如，表 [X, Y, Z] 与 [a, b, c] 合一后得 X = a，Y = b，Z = c，其中变量 Z 并非等于 [c] 。

接下来我们通过三个例子来更详细地了解表的操作。

例6-1：设计一个能判断对象 X 是表 L 的成员的程序。
我们可以这样设想：
如果 X 与表 L 中的第一个元素（即表头）是同一个对象，则 X 就是 L的成员；
如果 X 是 L 的尾部的成员，则 X 也就是 L 的成员。
根据这种逻辑关系，有下面的 Prolog 程序：

member(X, [X | Tail]). member(X, [Head | Tail]) :- member(X, Tail). 

其中第一个子句的语义就是上面的第一句话；第二个子句的语义就是上面的第二句话。可以看出，这个程序中使用了递归技术，因为谓词 member 的定义中又含有它自身。利用这个程序就可以判定任意给定的一个对象和一个表之间是否具有 member（成员）关系。例如，取表 L 为 [a, b, c, d]，取 X 为 a，对上面的程序提出如下询问：

Goal : member(a, [a, b, c, d]). 

则回答“yes”。同样对于询问：

Goal : member(b, [a, b, c, d]). Goal : member(c, [a, b, c, d]). Goal : member(d, [a, b, c, d]). 

均回答“yes”。但若询问：

Goal : member(e, [a, b, c, d]). 

则回答“no”。如果我们这样询问：

Goal : member(X, [a, b, c, d]). 

意思是要证明存在这样的 X，它是该表的成员，这时系统返回 X 的值，即：

X = a 

如果需要的话，系统还会给出 X 的其他所有值。

例6-2：写一个表的拼接程序，即把两个表连接成一个表。

append([], L, L). append([H | T], L2, [H | Tn]) :- append(T, L2, Tn). 

Goal : append([1, 2, 3], [4, 5], L). 

则系统便三次递归调用程序中的第二个子句，最后从第一个子句终止，然后反向依次求出每次的拼接表，最后输出：

L=[1, 2, 3, 4, 5] 

当然，对于这个程序也可以给出其他各种询问，如：

Goal : append([1, 2, 3], [4, 5], [1, 2, 3, 4, 5]). 

系统回答yes。

Goal : append([1, 2, 3], [4, 5], [1, 2, 3, 4, 5, 6]). 

系统回答no。

Goal : append([1, 2, 3], Y, [1, 2, 3, 4, 5]). 

系统回答X = [4, 5]。

Goal : append(X, [4, 5], [1, 2, 3, 4, 5]). 

系统回答X = [1, 2, 3]。

Goal : append(X, Y, [1, 2, 3, 4, 5]). 

系统回答

X = [], Y = [1, 2, 3, 4, 5] X = [1], Y = [2, 3, 4, 5] X = [1, 2], Y = [3, 4, 5] X = [1, 2, 3], Y = [4, 5] 等（如果需要所有解的话）。 

例6-3：表的输出

print([]). print([H | T]) :- write(H), print(T). 

例6-4：表的倒置，即求一个表的逆序表。

reverse([], []). reverse([H | T], L) :- reverse(T, L1), append(L1, [H], L). 

这里，reverse的第一个项是输入，即原表；第二个项是输出，即原表的倒置。

七、回溯控制

Prolog 在搜索目标解的过程中，具有回溯机制，即当某一个子目标“Gi”不能满足时，就返回到该子目标的前一个子目标“Gi-1”，并放弃“Gi-1”的当前约束值，使它重新匹配合一。在实际问题中，有时却不需要回溯，为此 Prolog 中就专门定义了一个阻止回溯的内部谓同——“!”，称为截断谓词。

截断谓词的语法格式很简单，就是一个感叹号“!”。! 的语义如下。

1. 若将“!”插在子句体内作为一个子目标，它总是立即成功。
2. 若“!”位于子句体的最后，则它就阻止对它所在子句的头谓词的所有子句的回溯访向，而让回溯跳过该头谓词（子目标），去访问前一个子目标（如果有的话）。
3. 若“!”位于其他位置，则当其后发生回溯且回溯到“!”处时，就在此处失败，并且“!”还使它所在子句的头谓词（子目标）整个失败（即阻止再去访问头谓词的其余子向（如果有的话），即迫使系统直接回溯到该头谓词（子目标）的前一个子目标（如果有的话））。

p(a). （7 - 1） p(b). （7 - 2） q(b). （7 - 3） r(X) :- p(X), q(X). （7 - 4） r(c). 

对于目标：r(X).可有一个解：
Y = b
但当我们把式（7 - 4）改为：

r(X) :- p(X), !, q(X). （7 - 4'） 

g0 :- g11, g12, g13. （7 - 5） g0 :- g14. （7 - 6） g12 :- g21, !, g23. （7 - 7） g12 :- g24, g25. （7 - 8） ... ... 

给出目标：g0。
假设运行到子目标 g23 时失败，这时如果子句（7 - 7）中无“!”的话，则会回溯到 g21，并且如果 g21 也失败的话，则会访问下面的子句（7 - 8）。但由于有“!”存在，所以不能回溯到 g21，而直接宣告 g12 失败。于是由子句（7 - 5），这时则回溯到 g11。如果我们把子句（7 - 7）改为：

g12 :- g21, g23, !. （7 - 9） 

当然这时若 g23 失败时，便可回溯到 g21，而当 g21 也失败时，便回溯到 g12，即子句（7 - 8）被“激活”。但对于修改后的程序，如果 g13 失败，则虽然可回溯到 g12，但对 g12 不做任何事情便立即跳过它，而回溯到 g11。如果子句（7 - 9）中无“!”，则当 g13 失败时，回溯到 g12 便去考虑子句（7 - 8），只有当子句（7 - 8）再失败时才回溯到 g11。

八、程序举例

下面给出几个简单而又典型的程序实例。通过这些程序，读者可以进一步体会和理解 Prolog 程序的风格和能力，也可以掌握一些基本的编程技巧。

例8-1：下面是一个简单的路径查询程序。程序中的事实描述了如下图所示的有向图，规则是图中两节点间有通路的定义。

predicates road(symbol, symbol) path(symbol, symbol) clauses road(a, b). road(a, c). road(b, d). road(c, d). road(d, e). road(b, e). path(X, Y) :- road(X, Y). path(X, Y) :- road(X, Z), path(Z, Y). 

程序中未含目标，所以运行时需给出外部目标。例如当给出目标：

path(a, e). 

时，系统将回答yes，但当给出目标：

path(e, a). 

时，系统则回答no，如果给出目标：

run. 

且在程序中增加子句：

run :- path(a, X), write("X =", X), nl, fail. run. 

屏幕上将会输出：

X = b X = c X = d X = e X = d X = e X = e 

即从 a 出发到其他节点的全部路径。

例8-2：下面是一个求阶乘程序，程序中使用了递归。

/* a Factorial Program */ domains n, f = integer predicates factorial(n, f) goal readint(I), factorial(I, F), write(I, "!=", F). clauses factorial(1, 1). factorial(N, Res) :- N > 0, N1 = N - 1, factorial(N1, FacN1), Res = N * FacN1. 

程序运行时，从键盘上输入一个整数，屏幕上将显示其阶乘数。

例8-3：下面是一个表的排序程序，采用插入排序法。

/* insert sort */ domains listi = integer* predicates insert_sort(listi, listi) insert(integer, listi, listi) asc_order(integer, integer) clauses insert_sort([], []). insert\_sort([H | Tail], Sorted_list) :- insert_sort(Tail, Sorted\_Tail), insert(H, Sorted_Tial, Sorted\_list). insert(X, [Y | Sorted_list1]) :- asc_order(X, Y), !, insert(X, Sorted_list, Sorted\_list1). insert(X, Sorted_list, [X | Sorted\_list]). asc_order(X, Y) :- X > Y. 

程序中对表的处理使用了递归。程序中也未给出目标，需要在运行时临时给出。例如当给出目标：

insert_sort([5, 3, 4, 2, 6, 1, 7, 8, 9, 0], L). 

时，系统将输出：

L = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9] 

Visual Prolog 语言简介

参考文献：《人工智能技术简明教程》–廉师友 编著