prolog 如何使用 succ 运行递归查询?

2024-03-03

有人可以向我解释一下为什么这个序言查询会这样工作吗?定义是:

add(0,Y,Y). 
add(succ(X),Y,succ(Z)):- add(X,Y,Z).

鉴于这种:

?-  add(succ(succ(succ(0))),  succ(succ(0)),  R).

这是查询的轨迹:

Call:  (6)  add(succ(succ(succ(0))),  succ(succ(0)),  R) 

Call:  (7)  add(succ(succ(0)),  succ(succ(0)),  _G648) 

Call:  (8)  add(succ(0),  succ(succ(0)),  _G650) 

Call:  (9)  add(0,  succ(succ(0)),  _G652) 

Exit:  (9)  add(0,  succ(succ(0)),  succ(succ(0))) 

Exit:  (8)  add(succ(0),  succ(succ(0)),  succ(succ(succ(0)))) 

Exit:  (7)  add(succ(succ(0)),  succ(succ(0)), 
                                              succ(succ(succ(succ(0))))) 

Exit:  (6)  add(succ(succ(succ(0))),  succ(succ(0)), 
                                                succ(succ(succ(succ(succ(0))))))

该教程中最让我困惑的部分是,在第一个参数中,succ 被剥离,并且它会递归。不过,在递归时,R 获得了成功...如何实现?!另外,第一个出口(9)处的零从何而来?我是序言新手,我正在尝试理解作业中的语言。非常感谢任何帮助。

注意:对于任何感兴趣的人,本教程的链接是


你看,call and exit are verbs,解释器尝试解决您提出的查询而采取的操作。然后,跟踪会公开已完成的实际工作的详细信息,并让您以历史的角度查看它。

当 Prolog 必须选择一条规则(acall),它使用name你给它(所谓的functor),并尝试unify规则头部的每个参数。那么我们通常说 Prolog 也考虑arity,即用于选择的参数数量。

Unification尝试使两项“相等”,值得注意的结果被称为bindings变量。您已经知道变量是那些开头的名称Uppercase。这些名称标识规则中未指定的值,即placeholders为了争论。为了避免混淆,当 Prolog 显示跟踪时,变量被重命名,以便我们可以识别它们,因为相关细节是identities或在证明过程中建立的约束力。

然后你看到这样的_G648跟踪中的符号。他们留下来是为了尚未实例化被调用目标的参数,即R and Z。 R 是唯一的(仅出现在顶层调用中),因此此 Prolog 善意地保留用户友好的名称,但 Z 来自程序,可能会出现多次,然后被重命名。

回答这个问题

?-  add(succ(succ(succ(0))),  succ(succ(0)),  R).

Prolog首先尝试匹配

add(0,Y,Y). 

并失败,因为 succ(succ(succ(0)) 不能等于 0。 然后尝试

add(succ(X),Y,succ(Z)) :- add(X,Y,Z).

因此必须解决这些绑定(调用者术语的左侧):

succ(succ(succ(0))) = succ(X)
succ(succ(0)) = Y
R = Z

你可以明白为什么 X 变成succ(succ(0)),我们有一个新的目标要证明,即规则体add(X,Y,Z)刚刚建立的绑定:

添加(succ(succ(0)),succ(succ(0)),_G648)

依此类推...直到 X 变为0和进球比赛

add(0,Y,Y).

那么Y就变成了succ(succ(0)),值得注意的是还给赋值给Z在调用规则中。

HTH

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

prolog 如何使用 succ 运行递归查询? 的相关文章

  • 在序言中减去或添加列表的列表?

    我对序言相当陌生 正在尝试摆弄列表列表 我很好奇如何添加两个列表列表或减去它们从而得到一个列表列表 如果我有两个列表 可以说 SomeList 1 2 3 4 5 6 7 8 SomeList2 1 2 3 4 5 6 7 8 我该如何添加
  • 井字游戏的极小极大

    我正在尝试用简单的极小极大算法来解决井字游戏 简单 但应该涵盖很多语言 到目前为止我所拥有的 该板表示为 9 个 未绑定 变量的数组 这些变量可以设置为x or o 获胜条件基本上是 win Player X1 X2 X3 X1 Playe
  • 求解序言中极其简单的方程:A = B + C?

    我有一个非常简单的方程 我希望能够在序言中求解 A B C 我希望能够编写一个谓词来表达这种关系 它可以处理任何一个未实例化的参数 无需推广到更复杂的关系或方程 myEquation A B C something 我可以使用以下语义进行调
  • 在 Prolog 中动态拆分列表

    我从序言开始几周 但我看到了更深入的操作列表的递归谓词的构造 我的问题是 是否可以构建一个谓词 将给定列表拆分为给定数量的其他列表 比如我想象的 split H T NumberLists Lists 递归实现 split 1 2 3 4
  • Prolog 实现 and/2、or/2、nand/2、nor/2、xor/2 [关闭]

    Closed 这个问题需要多问focused help closed questions 目前不接受答案 我想在序言中实现以下谓词并将它们用于真值表 and 2 or 2 nand 2 nor 2 xor 2 也许有人可以告诉我如何实现和
  • 列表中的连续元素

    我正在阻止一个谓词来编码Prolog 我需要对两个谓词进行编码 如果我打电话 u a b c d e f X 它会给X a b X b c X c d 如果我打电话 v a b c d e f X 它会给X a b X c d X e f
  • Same_length/2 更好的纯版本

    鉴于频繁的纯定义same length 2 as same length same length As Bs same length As Bs same length L L loops 是否有一个纯粹的定义不会在这种情况下循环 类似于纯
  • Prolog家谱

    我做到了 但没有显示答案 当我询问兄弟姐妹 叔叔 阿姨时 这是我写的 有什么问题吗 uncle X Y male X sibling X Z parent Z Y uncle X Y male X spouse X W sibling W
  • 从终端查询不会打印任何内容

    当在命令行中运行时 这 swipl g write 42 t halt 打印 42 到STDOUT正如预期的那样 然而 这 swipl g X 42 t halt 不打印任何内容 它只是返回 我如何让它打印在 REPL 中打印的内容 即X
  • 查找相邻成员

    我必须找出列表中的两个成员是否相邻 限制是使用append 3谓词 到目前为止 我已经完成了下面的操作 如果它是真的 它就有效 否则我得不到答案 就像它永远运行一样 adjacent X Y L append L1 X Y T1 appen
  • 如何在 ISO Prolog 中定义(和命名)相应的安全术语比较谓词?

    标准术语顺序 ISO IEC 13211 1 7 2 术语顺序 针对所有术语 包括变量 进行定义 虽然这有很好的用途 想想实施setof 3 这使得 8 4 术语比较中内置函数的许多其他干净且合乎逻辑的使用成为声明式噩梦 到处都是 imps
  • 一次性删除不正确的后续解决方案

    我有一个谓词 它找到正确的解决方案 但随后又找到不正确的解决方案 data D data threshold nonredundantbumps D 5 Bs write D 3 6 7 8 2 4 5 6 9 4 7 3 D 3 6 7
  • Prolog DCG:找到最后一个元素

    我正在尝试更好地理解 DCG 的用途 为了做到这一点 我尝试将 LearnPrologNow 书中的一些练习转换为 DCG 表示法 然而 我却失败得很惨 我试图编写一个程序 仅命名列表中的最后一个元素 就这样 我只是想不出正确的 DCG 语
  • SWI Prolog 转义引号

    我需要在序言中将 放在字符串周围 我从另一个程序获取输入 看起来我无法转义该程序中的 因此我必须在序言中添加 否则序言语句将不起作用 感谢您的帮助 为了讨论strings https stackoverflow com a 39922411
  • Prolog - 通过演绎减少知识库

    我需要创建一个规则来搜索与 my rule 匹配的事实 这些事实将用于改变知识库 my rule Conclusion Premise 我有这个知识库可以开始 dynamic is 2 is m1 house is m1 thing is
  • 将人员分配到床位 - 自动化方法[关闭]

    Closed 这个问题需要多问focused help closed questions 目前不接受答案 我每年都会帮助举办青年营 将与会者分配到卧室是一项艰巨的任务 有 92 个卧室 活动持续一周 与会者停留的时间长短不一 而且床需要重复
  • findall 的异常行为

    以下看起来很不寻常 findall X member X 1 2 3 X X 1 2 3 痕迹更是如此 trace findall X member X 1 2 3 X Call 11 findall 100058 member 10005
  • 下面代码中的修剪选择点如何使其更加高效(Prolog)?

    在下面给出的代码中 有 cut 修剪选择点以提高效率 我非常确定reverse谓词和agent do moves谓词是必不可少的 solve task Task Cost agent current position oscar P sol
  • 冒号 (:) 在 Swi-Prolog 中到底代表什么?

    我无法明确找到 代表什么prolog http www swi prolog org pldoc doc for object op 3 在交互模式下您可以看到以下证据 display a b a b true display a b c
  • Prolog 否定和逻辑否定

    假设我们有以下程序 a tom v pat 和查询 返回 false a X v X 当追踪时 我可以看到X被实例化为tom 谓词a tom 成功 因此 a tom fails 我在一些教程中读到 不 在Prolog中只是一个测试 不会导致

随机推荐

  • 自动递增宏扩展

    使用普通C预处理器宏 是否可以创建类似以下内容 INIT BASE 0x100 init starting number define BASE A GET NEXT BASE equivalent to define BASE A 0x1
  • jQuery 查找浮动 li 中每行的项目数

    有没有办法找到项目的数量 li标签 内ul其中有它的float set to left 假设我有大量文件夹 这些文件夹在视觉上表示为li标签 由于浮动行为 一旦li不适合单行 它们将被向下推 给出行和列的外观 我的问题是 使用 jQuery
  • JAVAFX:可以通过代码设置css吗?

    我有以下代码 progress bar gt bar fx background color linear gradient from 0em 0 75em to 0 75em 0px repeat fx accent 0 fx accen
  • 我如何向 Activemq 发送消息

    我从来不工作JMS 最近我下载了Activemq并更改端口号61616 to 61617 in all conf activemq xml文件 我从命令提示符运行以下命令并在浏览器上打开控制台页面 C Users Infratab Bang
  • 如何自动缩放一组控件的字体大小?

    我在 WPF 网格中有一些 TextBlock 我想根据它们的可用宽度 高度进行缩放 当我搜索自动缩放字体大小时 典型的建议是将 TextBlock 放入 ViewBox 中 所以我这样做了
  • Android MediaRecorder API 不断裁剪视频比特率

    我使用 MediaRecorder API 一段时间了 我以为所有问题都已经过去了 但我想我错了 我正在使用 MediaRecorder API 将视频录制到文件中 当我使用高质量的 setProfile 时 我得到了良好的质量 但是当我尝
  • 如何在 React Native 中拉伸静态图像作为背景?

    我想在我的 React Native 应用程序中使用背景图像 图像比屏幕小 所以我必须拉伸它 但如果图像是这样 它就不起作用从资源包加载 var styles StyleSheet create bgImage flex 1 flexDir
  • 使用 MediaWiki 从 Wikia 页面提取文本,但返回结果一片混乱,是否有更好的方法可以从每个部分提取文本?

    我正在开发一个 Android 应用程序 它从 Wikia 页面提取信息并将其显示在应用程序中 我目前正在拉动所有类别进行导航 并将我的应用程序设置为在 WebView 中显示页面 但我只想拉动信息并自行格式化 而不是通过传递到 WebVi
  • android:如何在字符串中添加下划线

  • 按组计算值之间的差异并匹配时间

    对于每只鸟 我想计算不同日期的平均每小时体温 Tb 测量值 Tb Periods 之间的差异 我的目标是能够比较 BirdX 从 0900 PreI 到 09 00 DayI 10 00 PreI 到 10 00 PostI 等的 Tb 变
  • 如何在 POST 期间获取不同资源的 JAX-RS @Path?

    我有两个用于涉及用户资源的简单 Web 服务 Jersey 和 GlassFish 的 REST 类 一个对所有用户进行操作 例如 POSTing 的工厂 另一个对单个用户进行操作 例如 GET PUT 删除 他们位于 Stateless
  • 在sql server中使用case语句更新多列

    我想使用 case 语句更新表 查询是这样的 select case columnname when name1 then begin update table set pay1 pay1 100 pay2 pay2 20 pay3 pa
  • .Net Core 无法使用位图

    我正在使用 Net Core 2 1 开发 Web 服务 我有一个字节数组 其中包含所有像素值 灰度 宽度 高度 我想从这些参数创建一个位图 这是我的代码 来自一个正在运行的 Net Framework 4 项目 public FileRe
  • CollapsingToolbarLayout 未正确调用 requestLayout()

    我有一个折叠的工具栏布局 其中包含图像 折叠时显示工具栏标题 我需要更改工具栏标题字体 因此我在工具栏布局中添加了一个文本视图 现在 每当我折叠工具栏时 都会重复生成以下错误 08 12 13 14 19 604 2263 2263 com
  • 什么时候应该从类方法返回对对象的引用

    从类方法返回引用的最佳实践是什么 是否希望在没有引用的情况下返回基本类型 而希望通过引用返回类对象 您推荐的任何文章 最佳实践文章 我假设你所说的类方法是指成员函数 通过引用返回 的意思是 返回对成员数据的引用 这主要与返回对 local
  • Coq 中的“错误:宇宙不一致”是什么意思?

    我正在努力通过软件基础 http www cis upenn edu bcpierce sf current 目前正在做教堂数字的练习 这是自然数的类型签名 Definition nat forall X Type X gt X gt X
  • Google Finance,如何获取 JSON 数据流?

    我之前试图解释这一点 但显然失败了 因此 如果您打开了谷歌金融图表 例如 http www google com finance q INDEXNASDAQ IXIC http www google com finance q INDEXN
  • 将 HTTP 响应正文解析为 XML

    我使用此代码执行 HTTP 请求并解析 XML 响应 using HttpWebResponse resp req GetResponse as HttpWebResponse if resp StatusCode HttpStatusCo
  • R中基于移动时间窗口连接数据

    我有每小时记录一次的天气数据 以及每 4 小时记录一次的位置数据 X Y 我想知道 X Y 位置的温度是多少 天气数据并不完全相同 因此 我为每个位置编写了这个循环 以扫描天气数据 查找日期 时间中的 最接近 并提取该时间的数据 问题是我编
  • prolog 如何使用 succ 运行递归查询?

    有人可以向我解释一下为什么这个序言查询会这样工作吗 定义是 add 0 Y Y add succ X Y succ Z add X Y Z 鉴于这种 add succ succ succ 0 succ succ 0 R 这是查询的轨迹 Ca