寻找 nani (1)
test.pl文件
room(kitchen). room(office). room(hall). room('dining room'). room(cellar). location(desk,office). location(apple,kitchen). location(flashlight,desk). location('washing mechine',cellar). location(nani,'washing mechine'). location(broccoli,kitchen). location(crackers,kitchen). location(computer,office). door(office,hall). door(kitchen,office). door(hall,'dining room'). door(kitchen,cellar). door('dining room',kitchen). edible(apple). edible(crackers). tastes_yucky(broccoli). turned_off(flashlight). here(kitchen).
localtion() 和 door() 中的变量是区分顺序的,如:
?-location(desk,office).
true
?-location(office,desk).
false
?-door('dining room',kitchen).
true
?-door(kitchen,'dining room').
false
prolog程序的运行机理
1、自由变量 约束变量
prolog中无值的变量称之为自由变量,有值的变量称之为约束变量。
一个变量取了某值,就称该变量约束于某值,或者该变量被某值约束,或者该变量被某值实例化了。
在程序运行过程中,自由变量可以被实例化成为约束变量;一个约束变量也可以解除其值成为自由变量。
2、匹配合一
两个谓词可以匹配合一,指两个谓词的名相同,参量项的个数相同,参量类型相同,并且对应参量项还满足如下条件之一:
①如果两个都是常量,则必须完全相同。
②如果两个都是约束变量,则两个约束值必须相同
③如果一个是常量,一个是约束变量,那么常量和约束值必须相同。
④至少有一个是自由变量。(个人理解,如果至少有一个自由变量,其实是给用另一个相应的值,把这个自由变量约束起来,成为一个约束变量,最后是实现相等)
prolog的匹配合一操作,可以使两个能匹配的谓词合一起来。即为参加匹配的自由变量和常量,或者是两个自由变量建立一种对应关系。使得常量作为变量的约束值,两个对应的自由变量始终保持一致,即若其中一个值被约束,则另一个值也被约束,反之,解除一个值的约束,另外一个值也会被解除约束。
test.pl文件
room(kitchen). room(office). room(hall). room('dining room'). room(cellar). location(desk,office). location(apple,kitchen). location(flashlight,desk). location('washing mechine',cellar). location(nani,'washing mechine'). location(broccoli,kitchen). location(crackers,kitchen). location(computer,office). door(office,hall). door(kitchen,office). door(hall,'dining room'). door(kitchen,cellar). door('dining room',kitchen). edible(apple). edible(crackers). tastes_yucky(broccoli). turned_off(flashlight). here(kitchen).
localtion() 和 door() 中的变量是区分顺序的,如:
?-location(desk,office).
true
?-location(office,desk).
false
?-door('dining room',kitchen).
true
?-door(kitchen,'dining room').
false
prolog程序的运行机理
1、自由变量 约束变量
prolog中无值的变量称之为自由变量,有值的变量称之为约束变量。
一个变量取了某值,就称该变量约束于某值,或者该变量被某值约束,或者该变量被某值实例化了。
在程序运行过程中,自由变量可以被实例化成为约束变量;一个约束变量也可以解除其值成为自由变量。
2、匹配合一
两个谓词可以匹配合一,指两个谓词的名相同,参量项的个数相同,参量类型相同,并且对应参量项还满足如下条件之一:
①如果两个都是常量,则必须完全相同。
②如果两个都是约束变量,则两个约束值必须相同
③如果一个是常量,一个是约束变量,那么常量和约束值必须相同。
④至少有一个是自由变量。(个人理解,如果至少有一个自由变量,其实是给用另一个相应的值,把这个自由变量约束起来,成为一个约束变量,最后是实现相等)
prolog的匹配合一操作,可以使两个能匹配的谓词合一起来。即为参加匹配的自由变量和常量,或者是两个自由变量建立一种对应关系。使得常量作为变量的约束值,两个对应的自由变量始终保持一致,即若其中一个值被约束,则另一个值也被约束,反之,解除一个值的约束,另外一个值也会被解除约束。
简单查询
prolog的查询工作是靠模式匹配完成的,查询的模版叫做目标,如果有某个事实与目标想匹配,那么查询成功,prolog的解释器会显示true(有的prolog IDE 会显示yes),否则显示false(有的prolog IDE显示no)。
我们把prolog的模式匹配工作叫做联合。
?-room(office). true ?-room(fdafd). false
?-location(desk,office).
true
?-location(office,desk).
false
在查询目标中,我们可以使用使用变量。变量可以和任何条目匹配。
当联合成功之后,变量的值将和它所匹配的条目的值相同,这叫做变量的绑定(binding),当带变量的目标成功和数据库中的事实匹配之后,prolog将返回变量绑定的值。
?-room(X). X = kitchen; X = office; X = hall; X = 'dining room'; X = cellar. no % 有的prolog 程序会显示no 但是SWI-prolog不会显示任何提示,只会默默的退出查询 ?-
由于目标可以和多个条目匹配所有,变量可以绑定多个值。在prolog每次回答之后,输入“;”,可以让prolog继续查询,
?- location(Thing,Place). Thing = nani, Place = 'washing mechine' ; % 一次成功的查询 Thing = broccoli, Place = kitchen ; %又一次成功的查询 Thing = crackers, Place = kitchen ; Thing = desk, Place = office ; Thing = apple, Place = kitchen ; Thing = flashlight, Place = desk ; Thing = 'washing mechine', Place = cellar ; Thing = computer, Place = office.
查询的工作原理
当prolog试图与某一个目标相匹配时,例如 location/2,它就在数据库中搜索所有用location/2定义的子句。当找到一条与目标匹配的子句时,它就会为这条子句做上记号,当用户需要更多答案时,它就从那条做了记号的子句开始向下查询。
prolog的目标有四个端口来控制运行的流程。调用(call),退出(exit),重试(redo),失败(fail)。使用call进入目标,如果匹配成功,就到exit端口,如果失败就到fail端口,如果用户输入“;”(分号),那就又从redo端口进入目标。
call 开始使用目标搜寻子句
exit 目标匹配成功,在成功的子句上作记号,并绑定变量
redo 视图重新满足目标,首先释放变量,并从上次开始的记号开始搜索
fail 表示再找不到更多满足目标的子句
但是SWI-log进入调试模式(最后补上)
1 ?- % location/2: [call,redo,exit,fail] % The graphical front-end will be used for subsequent tracing 1 ?- location(X,kitchen). T Call: (7) location(_G161, kitchen) T Exit: (7) location(broccoli, kitchen) X = broccoli ; T Redo: (7) location(_G161, kitchen) T Exit: (7) location(crackers, kitchen) X = crackers ; T Redo: (7) location(_G161, kitchen) T Exit: (7) location(apple, kitchen) X = apple.
我感觉这个SWI-prolog 的调试信息不能很好的把顺序说明白,所以就复制一下文档中的debug信息。
?- location(X, kitchen). CALL: - location(X, kitchen) EXIT:(2) location(apple, kitchen) X = apple; REDO: location(X, kitchen) EXIT:(6) location(broccoli, kitchen) X = broccoli REDO: location(X, kitchen) EXIT:(7) location(crackers, kitchen) X = crackers FAIL - location(X, kitchen) no %括号中的数字表正在考虑的子句
SWI-prolgo进入调试模式方式:
菜单栏--debug--Edit spy points
第一步:在predicate栏输入自己想debug 的 谓词
第二步:点击输入栏右侧的 眼睛 图标。
第三步:点击 右上角的 debug 选框
第四步:像往常一样在SWI-prolog 输入想要查询的信息。继续查询的话使用“;”。
第二种:
两种调试方式