Prolog Eliza实现-循环和递归
Prolog是一种逻辑编程语言，它使用谓词逻辑来描述和解决问题。Eliza是一个基于Prolog的聊天机器人，旨在模仿人类对话的方式。
循环是一种控制结构，允许程序重复执行特定的代码块，直到满足某个条件。在Prolog中，通常使用递归来实现循环。递归是一种在函数定义中调用自身的技术，可以有效地解决重复性任务。
对于Prolog中的循环和递归，我可以给出如下的完善答案：
循环在Prolog中通过递归实现。递归是一种自身调用的过程，它通过不断缩小问题的规模来解决问题。在Prolog中，我们可以使用递归来实现循环的效果。例如，假设我们要实现一个计算阶乘的程序：
factorial(0, 1).
factorial(N, Result) :-
N > 0,
N1 is N - 1,
factorial(N1, Result1),
Result is N * Result1.在上面的例子中，factorial/2谓词定义了两个规则。第一个规则表示0的阶乘为1。第二个规则使用递归调用来计算N的阶乘。它首先检查N是否大于0，如果是，则计算N-1的阶乘并将结果与N相乘，最终得到N的阶乘。
在Prolog中，递归是一种强大的工具，但需要注意避免进入无限递归的情况，确保递归过程能够在某个条件下终止。
在云计算领域，循环和递归的概念与Prolog中的实现类似。循环可以用于遍历和处理数据，而递归可以用于解决复杂的问题。然而，在实际的云计算应用中，通常更多地使用迭代和分布式算法来处理大规模数据和任务。
在腾讯云相关产品中，可以使用云函数（Serverless Cloud Function）实现循环和递归的功能。云函数是一种无需管理服务器即可运行代码的云服务，您可以在函数中编写循环和递归逻辑，并通过事件触发来执行函数。您可以参考腾讯云云函数的官方文档（https://cloud.tencent.com/product/scf）了解更多信息和使用方法。
注意：在上述回答中没有提及亚马逊AWS、Azure、阿里云、华为云、天翼云、GoDaddy、Namecheap、Google等流行的云计算品牌商。
相关·内容
我正试图通过Prolog完成Eliza的一个小版本的任务。我需要程序显示一个提示，在其中用户键入一个句子作为一个列表和程序将响应从原来的句子派生出来的句子。在句子中，“you”改为“I”。“i”改为“为什么”，“are”改为“am”，“do”改为“no”。等等。
下面是程序，但它只允许用户输入一个单词。如果我只写“你”就行了。然而，如果我试图写出整句话或一个与[]相关的单词，我就会犯一个错误。
“变更(X，Y):- X= 'you'，Y= 'I‘。
变化(X，Y):- X= 'i'，Y=‘你’。
变更(X，Y):- X= 'are'，Y=
浏览 4提问于2022-07-29得票数 -1
1回答
有人能给我解释一下为什么这个代码不能正常工作吗？它陷入了一个说假的循环中。我不太确定如何运行它，这可能是问题所在。我希望它看起来像这样 Ready> [you,are,a,computer].
Eliza: i am not a computer
Ready> [do,you,speak,portuguese].
Eliza: no, i speak russian
Ready> change(X,Y):- X = 'you', Y = 'i'.
change(X,Y):- X = 'i', Y = 'why do y
浏览 25提问于2021-04-27得票数 0
我正在创建一个简单的聊天机器人程序，如。
我接受终端的问题，用对话框发送回复，但我的程序只接受第一次输入和重复。
例如，当我运行脚本时，输出可能如下所示：
[Eliza]: Hi, I'm a psychotherapist. What is your name?
user Input: hello my name is adam.
[Eliza]: hello adam, how are you?
[Eliza]: your name is adam
[Eliza]: your name is adam
[Eliza]: your name is adam
[Eliza]: your
浏览 3提问于2017-01-31得票数 5
回答已采纳
我正在使用Eliza聊天机器人来查找对字符串的回复，并且我找到了库来帮助实现这一点。到目前为止，我的代码如下：
package chatTest;
import codeanticode.eliza.*;
import java.io.*;
import java.util.*;
public class Main
{
public static void main (String[] args)
{
Eliza eliza;
eliza = new Eliza(this);
String response = eliza.processInput(
浏览 0提问于2013-09-15得票数 1
1回答
我必须‘编码’像Eliza.pl这样的东西，我不知道如何开始。我找到了这个链接：它是我需要‘编码’的东西，但我不想触犯法律，所以我想自己做。
如何开始这项工作？从什么开始呢？
浏览 0提问于2011-05-13得票数 1
我正在处理perl和正则表达式中的chet程序，但是我没有得到想要的结果，因为我在散列中有所有的代词和动词，我是通过字符串循环的，如果它与散列键匹配，那么用当前的子字符串值替换散列键值。
程序输出
Eliza:嗨，我是心理治疗师。您的名字是什么？
亚当：，我叫亚当
Eliza:你好，亚当，你好吗？
adam:，我感觉很糟糕
Eliza:，你为什么感觉不好？
adam:，因为我病了
Eliza:，为什么你生病了？
不管“因为”字在最后一个问题，但输出应该是这样的
Eliza:，为什么你生病了？
关于我如何解决这个问题的任何建议。
代码：
sub makeQuestion{
my ($pa
浏览 4提问于2017-02-03得票数 2
回答已采纳
我正在尝试生成一个列表，例如
[X1/1,X2/2,X3/3....Xn/N] with given N.
我尝试创建一个函数maketemplate(N,L)，它接受N并返回L列表和Xn/N项，其中Xn是第N个变量，N是一个整数。
作为一个更简单的例子，我最初尝试用给定的N创建一个[1,2,3...N]列表，但我甚至不能让它工作。
mysolution(L,N,N).
mysolution([I|Rest],I,N):-
I < N,
I is I+1,
mysolution(Rest,I+1,N).
我如何在prolog中模拟一个类似for循环的操作？
浏览 2提问于2016-05-30得票数 1
我尝试了一本书中的一些基本示例，它出现了"Out of local stack“错误(我将在代码后面讲述更多)。代码如下：
edge(a,b).
edge(a,e).
edge(b,d).
edge(b,c).
edge(c,a).
edge(e,b).
tedge(Node1,Node2) :-
edge(Node1,SomeNode),
edge(SomeNode,Node2).
edge(X,Y) :- tedge(X,Y).
例如，我尝试编写query edge(a，b)，它返回true，然后我输入';‘，它就出错了。这里有什么问题？
浏览 4提问于2014-12-31得票数 0
1回答
我想使用DCGs作为发电机。到目前为止，语法是
s-->a,b.
a-->[].
a-->a,c.
c-->[t1].
c-->[t2].
b-->[t3].
b-->[t4].
我想生成a长度为< someNumber的所有s。
使用?- phrase(a,X),length(X,Y),Y<4.，我可以获得少于4个项目的所有a。然而，当所有组合都耗尽时，系统(SWI-Prolog 6.2.5)似乎停止了。有时，一个类似的问题是。然而，作为Prolog的新手，我不能用上面的语法让它工作。有什么想法吗？
更新:有一条来自(canremembe
浏览 1提问于2013-01-09得票数 6
回答已采纳
1回答
我对探索者的东西很感兴趣，在2011年的网站上找到了一个很酷的例子，但是对代码没有任何解释。我明白它的作用，但不知道这些步骤是如何工作的。因此，例如，这些是边：
edge(1,2).
edge(1,4).
edge(2,4).
edge(3,6).
edge(3,7).
edge(4,3).
edge(4,5).
edge(5,6).
edge(5,7).
edge(6,5).
edge(7,5).
edge(8,6).
edge(8,7).
这样我就能看出他们之间是否有路可走：
path(X,Y,[X,Y]):- edge(X,Y).
path(X,Y,[X|Xs]):- edge(X,W)
浏览 4提问于2021-04-27得票数 1
回答已采纳
3回答
我写了一个prolog程序，它在一个二维表中生成元素的所有可能位置。给出了元素的数量和表的大小。
我的代码：
geni(Min, Min, Max) :- Min =< Max.
geni(Min, X, Max) :- Max >= Min, MinInc is Min+1, geni(MinInc, X, Max).
generate(_, 0, []) :- !.
generate(TSize, N, [X|Tail]) :- X=k(X1,Y1), geni(1,X1,TSize),
geni(1,Y1,TS
浏览 3提问于2010-12-11得票数 1
回答已采纳
1回答
我想运行这个IRC Eliza机器人，但我对如何做到这一点缺乏一些基本的理解。
我对IRC一无所知，也不知道如何与他们建立联系。有人能解释一下我是怎么连接这个机器人的吗？我需要远程托管它吗？有没有一种方法可以在本地运行IRC客户端并在本地连接到它？目前，该程序只是运行没有错误，但什么也不做。
我理解node.js，但在理解IRC如何运行IRC机器人方面，我似乎缺少一些基础知识。
readme为我提供了执行但不执行任何操作的代码，引用如下：
用法
var Eliza = require('eliza/irc.js')
new Eliza({ server: 'irc.
浏览 1提问于2013-09-20得票数 0
回答已采纳
2回答
为了更好地理解prolog、列表和递归，我正在努力完成分配给自己的各种简单任务。其中包括从列表中删除重复条目。
我定义了一个规则：
is_on(Item, [Ah|At]) :- Ah = Item; is_on(Item, At).
这将检查“Item”是否在列表X上。所以我想我可以扩展它来定义一个filter_double谓词：
filter_doubles([Ah|At], Result) :-
(not(is_on(Ah, At)) ->
Result = [Ah|Result]
;
filter_doubles(At, Resul
浏览 0提问于2011-03-07得票数 2
回答已采纳
1回答
% Generator for natural numbers
isNatural(0).
isNatural(X) :-
isNatural(Y),
X is Y+1.
rangeToList(From, To, ResultList) :-
isNatural(X),
X > From,
X < To,
% Add X to the ResultList
appendTo(X, ResultList, ResultList),
Tn is To - 1,
% do the same with X to To-1
浏览 8提问于2017-12-19得票数 0
回答已采纳
3回答
我有一份辞典清单，供前妻用：
names = [{'Mark':'Volvo'}, {'John':'BMW'}, {'Eliza':'Merci'}, {'Calen':'Audi'}]
我想通过字典的键名来设置显式排序。
例如，如果我下了这个命令：
['John','Mark','Calen','Eliza']
预期产出将是：
[{'John':'BMW'},{'
浏览 6提问于2020-06-26得票数 1
回答已采纳
我目前正在阅读一本Prolog书，我被困在其中一个挑战练习中。我的目的是用一个参数创建一个谓词。当这个参数是一个变量时，它将返回下面的回溯，而X将继续无限制地递增。
X= 0，X= 1，X= 2，X= 3，X=.
我做了一个简单的谓词，在下面通过0-2回溯，但我想不出一种方法让它无限地继续下去。
backtracking_exercise(X) :-
X = 0;
X = 1;
X = 2.
我正在考虑使用中间/3谓词，但这只会给出有限数量的数字。我还试验了加号/3谓词和递归，但没有运气。这就是我想出来的，但正如你所知道的，它目前是无用的。
backtracking_e
浏览 3提问于2017-03-01得票数 1
回答已采纳
我正在用Prolog做一些作业，我必须使用一些足够类似的东西来：
规则：
brothers(a,b)
brothers(c,d)
而且我必须实现查询brothers(b,a)的能力，并在数据库中没有重复项的情况下获得true。
我考虑过使用：brothers(X,Y):- brothers(Y,X)，但它将是无限递归的。我不确定我还能做什么，因为两个名字必须是相同的。
浏览 3提问于2012-11-05得票数 1
回答已采纳
我在这个代码中的错误在哪里仍然是个乞丐
player = {'name': 'Frankie', 'attack': 10, 'heal': 5, 'health': 200}
eliza = {'name': 'Eliza', 'attack': 5, 'health': 200}
game_running = True
while game_running == True:
print('please select action
浏览 0提问于2019-10-18得票数 0
回答已采纳
2回答
我想要做的是找到一条有自动取款机的路线。我已经做了一些研究，我已经知道我必须添加一个基本的步骤和递归步骤。我已经实现了，但当我必须传输时，它不起作用。因此，如果它是邻居，它是有效的，但不是其他方式。
这就是我所拥有的：
p(zwolle,apeldoor,36).
p(apeldoorn,zutphen,22).
p(hengelo,zwolle,60).
p(zutphen,hengelo,45).
p(arnhem,apeldoorn,30).
p(arnhem,zutphen,24).
%basic step
route(Begin,End,PastCitys):-
浏览 1提问于2012-05-15得票数 0
7回答
我在理解以下阶乘程序时遇到了问题
fact1(0,Result) :-
Result is 1.
fact1(N,Result) :-
N > 0,
N1 is N-1,
fact1(N1,Result1),
Result is Result1*N.
当fact1被嵌套在第二个fact1中时，这是否意味着最后一行Result is Result1*N.永远不会被调用？或者在Prolog中，最后一行是在递归调用之前执行的吗？
浏览 0提问于2012-03-06得票数 12
回答已采纳
2回答
我只是想知道我怎么才能像这样
family(original, [dad/1, mom/2, child/5, granny/10]).
其中original是族的名称，列表由标题和速度组成。
如何将数字与标题分开(例如：dad/1)，所以我可以这样做：
time_needed(dad,1).
time_needed(mom,2).
time_needed(child,5).
time_needed(granny,10).
浏览 0提问于2012-04-12得票数 1
我目前正在努力理解prolog的基础知识。
我有这样一个知识库：p(a). p(X) :- p(X).，如果我输入查询p(b)，与事实的统一失败，规则p(X) :- p(X)被使用，导致与事实的统一再次失败。为什么这个规则会在那之后一遍又一遍地被应用呢？prolog不能在这一点上返回false吗？经过一段时间后，我得到了“超过时限”的信息。我不太清楚为什么prolog会一次又一次地使用这个规则，但既然是这样，我就不明白为什么我会收到如下所示的错误消息。我明白，"p(X)如果p(X)“是一条不合理的规则，但我想知道那里到底发生了什么。
如果我有这样的知识库：p(X) :- p(X). p
浏览 1提问于2018-04-21得票数 2
回答已采纳
2回答
我需要一些帮助，三个prolog谓词来检查和操作列表。我是prolog的新手，任何帮助都将不胜感激。
这三个谓词是：
当double_up(+List1, -List2)两次使用List2的每个元素时，List1是正确的。查询double_up([a,b,c],X)应该给出X=[a,a,b,b,c,c]。输出列表中元素的顺序并不重要。
pivot(+List1, +Pivot, -Smaller, -GreaterEq)是Smaller是小于Pivot的List1中的数字列表，而GreaterEq是List1中大于或等于Pivot的数字列表。
如果fancy_replace(+Li
浏览 3提问于2013-04-23得票数 0
3回答
我目前正在与prolog一起工作，并希望将两个列表相乘，但以证明的方式进行。例如：
[1,2,3] and [4,5,6] are my two lists.
我想预先制定以下行动：
(1*4)+(2*5)+(3*6) = 32
使得每个列表的第一个元素彼此相乘，然后与第二个元素一起相乘，等等。
这有可能出现在Prolog中吗？
我知道，在其他语言中，您可以使用列表的头和尾(其余条目)来执行递归函数。这允许简单的乘法，但我认为这在prolog中是不可能的？
浏览 0提问于2014-03-05得票数 2
回答已采纳
2回答
Prolog无限循环
、、、、
这是一个应该找出谁与john兼容的程序。我是Prolog的新手。为了让Prolog知道例如。met(X，Y) = met (Y，X)已经写了很多代码。现在，当我开始查询时
?- compatible(john, X)
它会进入无限循环。
源代码：
compatible(X,Y) :- reading(X), reading(Y).
compatible(X,Y) :- football(X), football(Y).
compatible(X,Y) :- friends(X,Y).
compatible(X,Y) :- mutual(X,Y).
friends(X,Y) :- havemet
浏览 7提问于2013-01-27得票数 3
回答已采纳
这个类会运行，但是当我在扫描器中键入某些内容时，什么都不会发生。它应该让输入被注册并运行到另一个类中，在那里我得到响应并尝试打印它。
public class Eliza {
public static void main(String[] args) {
String line = "";
String response = "";
ElizaResponder responder = new ElizaResponder();
System.out.println("Welco
浏览 1提问于2014-03-31得票数 0
回答已采纳
2回答
我正在修改Eliza程序，试图让它打印系统时间时，用户问-是什么时候？在阅读了几个小时的手册之后，我开始使用我的get_date_time_value()函数。如图所示
get_date_time_value(Key, Value) :-
get_time(Stamp),
stamp_date_time(Stamp, DateTime, local),
date_time_value(Key, DateTime, Value).
然而，我不知道如何从我的规则中调用这个函数，该规则被定义为
rules([[time,0],[
[1,[_],0,
[pleas
浏览 4提问于2015-05-06得票数 3
回答已采纳
基本上我已经定义了一个谓词来从当前状态中找到所有“下一个可能的状态”，但是我必须使用内置的bagof谓词来统一所有这些状态的列表，但是当我在命令窗口中调用它时，我得到了错误“out of global stack”，所以我试图跟踪它，它只是递归地不间断地调用下一个状态，所以如果有无限数量的解决方案，就不可能获得所有这些解决方案的“袋子”！
我不认为将可能的当前状态列表“限制”到一定数量的元素是一种选择，那么还有什么其他方法可以调用bagof而不出现全局堆栈错误？
如果这没有多大意义，我很抱歉！
浏览 0提问于2013-03-03得票数 0
1回答
解决方案
ppath(X,Y,M,Path,[Y|Path]) :- edge(X,Y,M),
\+ memberchk(Y,Path).
path(X,Y,P,SoFar,Path) :- edge(X,W,M), \+
memberchk(W,SoFar),
path(W,Y,N,[W|SoFar],Path), P is M+N.
pravilo(X,Y,Z) :-
aggregate(min(W), P^path(X,Y,W,[],P),
Z).
在此之后，我尝试使用?- pravilo(a,z,M).来获得结果。但上面写的是假的。
我的SWI版本(多线
浏览 0提问于2013-09-26得票数 2
回答已采纳
1回答
我希望XMPP房间的bot所有者能持续存在，但我总是从房间里消失，不得不重新加入。我应该怎么做才能保持我在房间里的存在？是可配置的吗？我在XEP-0045中找不到答案。
这是我的代码：
function daemonPresence(callback) {
var ElizaBot = require('./eliza');
var eliza = new ElizaBot();
var initial = eliza.getInitial();
var XMPP = require('stanza.io');
var
浏览 2提问于2015-03-14得票数 0
回答已采纳
我一直在努力尝试用Prolog编辑Eliza聊天机器人。每次我尝试编辑某些内容时，都会出现一个新的错误。它是否受到任何形式的编辑保护？
我使用SWI-prolog编辑器进行编辑。问题是，我试图在没有完全理解的情况下最小化代码。我正在试着做一个简单的简短版本。所以，我可能会删除一些重要的东西！比如"my_char_type“。我得到的错误是“retract/1:没有修改静态过程的权限` `rules/1'”
有没有我能理解的更小的聊天机器人的代码？
请帮帮忙:'(
浏览 0提问于2015-10-17得票数 5
嘿伙计们我有个关于带eclipse的amzi prolog的问题，
我正在运行一个.pro文件，它执行广度优先搜索，如果队列太长，
出现以下错误消息：
system_error 1021控制堆栈已满。编译代码或增加.cfg参数“控件”
如果是的话，我如何在eclipse下运行编译的代码？我试过运行这个项目，但是监听器没有接受任何查询就结束了.？
浏览 0提问于2010-04-01得票数 0
1回答
Prolog如何消除左递归
、、、、
我在prolog中编写了DCG (形容词短语和介词短语)，当我试图运行它时，通过输入ip([every,boy,loved,some,girl])，它从本地堆栈中显示出来。我意识到nbar有问题。有人能帮我吗？非常感谢。
%tree
treeP(Term):-
% Print the tree assuming indentation 0
treeP(0,Term),
% Tidy up with linefeed
nl.
treeP(_N,Tree):-
% Tree is just a variable
var(Tree)
浏览 1提问于2016-12-06得票数 2
5回答
我必须实现气泡排序函数(排序算法)。
我已经实现了bubblesort和swap，这是bubblesort的帮助函数。
swap([X,Y|T1],[Y,X|T1]):-(Y<X,!).
swap([X|T1],[X|T2]):- swap(T1,T2).
bubblesort([],[]) :- !.
bubblesort(T1,T2) :- (bubblesort(swap(T1,T2),T2)).
我有一个无限的循环。我必须保留该功能的签名：
布布莱(T1，T2)
我在这个问题上困了两个小时。有人知道我该怎么做吗？
浏览 18提问于2011-01-20得票数 1
2回答
我对Prolog中的递归是如何工作的有一个基本的理解。我发现很难在陈述性范式中思考。您能为编写递归谓词提供一些学习资源(并举例说明)吗？
浏览 0提问于2014-04-17得票数 2
回答已采纳
这可能是返回Prolog中列表长度的函数的最简单的实现。
count([], 0).
count([_|B], T) :- count(B, U), T is U + 1.
关于Prolog，我仍然无法理解的一点是使用变量作为参数的灵活性。
例如，我可以运行count([a, b, c], 3).并获得true。我还可以运行count([a, b], X).并得到一个答案X = 2.。奇怪的是(至少对我来说)我还可以运行count(X, 3).并得到至少一个结果，在解释器消失为无限循环之前，这个结果看起来类似于X = [_G4337877, _G4337880, _G4337883] ;。我甚
浏览 12提问于2016-03-26得票数 6
回答已采纳
2回答
我想要做一个谓词，检查一个节点是否可以到达prolog中的图中的另一个节点。例如，Connected(1,X,[[1,3],[3,4],[2,5]])，第一个参数是我想要启动的节点，第二个是我想到达的节点，第三个是边列表。到目前为止，我已经成功地做到了这一点，但是当我尝试使用findall/3获取所到达的所有节点时，我会得到一个无限循环。
有没有办法阻止无限循环，或者我应该从乞丐那里找出问题所在？
到目前为止，我的代码如下：
match([X,Y],List):- member([X,Y], List).
match([X,Y],List):- member([Y,X], List).
浏览 0提问于2014-02-23得票数 3
回答已采纳
1回答
考虑到以下代码：
fun(a, [b]).
fun(b, [c]).
fun(c, [d]).
fun(d, [e]).
fun(e, []).
xyz(X, Y):-
fun(X,Z) -> findall([A|B], (member(A,Z), xyz(A,B)), L),
flatten(L,F), sort(F,J), reverse(J,Y); Y = [].
通过查询xyz(a,X)，我获得了预期的输出X = [e,d,c,b].。
怎么可能把这个扔了？这与排序函数有关吗？如果是这样的话，根据下面链接中的文档，alpha或数字优先顺序可能会将其抛出，但cs
浏览 5提问于2015-03-09得票数 0
回答已采纳
我一直在练习Prolog。我尝试编写的函数是compose(L1，L2，L3)。它由顺序交错的L1和L2元素组成，直到其中一个元素变为nil，然后将该非nil列表追加到末尾。当输入L1和L2时，该函数工作得很好(即打印出正确的L3)，但当我输入L3并尝试获取所有逻辑上可能的输入L1和L2时，我遇到了“栈外”错误。例如，对于下面的函数代码，
compose([],[],[]).
compose(L1,[],L3):-
append(L1,[],L3).
compose([],L2,L3):-
append([],L2,L3).
compose([H1|T1],[H2|T2],L3
浏览 0提问于2019-11-10得票数 2
2回答
Prolog列表连续对
、、、
如果我有一个列表1,2,3,4,5，如何获得连续对并对它们执行操作？例如，我希望得到(1,2)并对它们执行doSomething。在下一次迭代中，我想得到(2,3)，等等。到目前为止，这就是我所拥有的：
listpairs([H1,H2|T]):-doSomething(H1,H2), listpairs([H2,H3|T]).
我可以进行第一次迭代，但在比较H2和H3时，我陷入了困境。
浏览 3提问于2016-03-30得票数 2
回答已采纳
我试着在Prolog中做一个for循环，但不起作用。该程序应执行以下操作：
generate(N,[S,E],FinalSegments):-
segments([S,E],Initialsegments),
iterate_level(N,Initialsegments,FinalSegments).
当我调用generate(5,[(10,0),(-10,0)])时，第一步是，generate(5,[(10,0),(-10,0)],FinalSegments)被调用，这个谓词在起点(10,0)和终点(-10,0)之间生成4个坐标，并将这4个ccordinate存储在列表Fina
浏览 10提问于2017-01-13得票数 0
回答已采纳
1回答
我有一个雷克萨斯，我正在努力建立。我只想知道为什么它不创建第二个列表。
%TokenList=[int, add, '(', int, a, ',', int, b, ')'].
lexer([H|TokenList],Output,[Output|X2]):-
lexer_test(H,Output),lexer(TokenList,Output,X2).
lexer_test(H,Output):-
(
H = '\'int\'' -> Output = 'TYPE_I
浏览 4提问于2016-03-17得票数 0
回答已采纳
给定表达式：(x*0+6)*(x-x+3+y*y)和值y:2，谓词应该只给出一个
解决方案(x*0+6)*(x-x+3+4).
当给定6*(3+x*x) and x:2时，它应该给出输出42。我已经写了几个小时的代码，我只能设法得到它的第二部分，.my代码发布在.can下面，有人帮我解决问题。
partial_eval(Expr0, Var,Val, Expr) :-
evaluate(Expr0,[Var:Val],Expr).
evaluate(Exp, LstVars, Val) :-
analyse(LstVars, Exp, NewExp),
Val is New
浏览 0提问于2017-09-21得票数 4
3回答
我有一个用Prolog写的小程序。现在我可以用以下命令打印第一个结果
test(X, 1, 4, 5).
write(X).
但是如果X有多个结果，我如何打印下一个结果呢？
谢谢。
浏览 0提问于2009-11-08得票数 5
回答已采纳
1回答
几天前，我找到了prolog，我一直坚持这个问题。我想递归地减去一个数字，直到这个数字小于0。用伪代码来说，这就像：
N:=0
while(Y>=X)
{
Y := Y-X
N := N+1
Y := Y+2
}
例如，如果我有Y=20和X=10，那么我们就可以得到N=2和Y=4。
有什么想法吗？提前谢谢。任何帮助都很感激。我用的是SWI Prolog。
编辑1到目前为止我已经完成的工作是(尽管我不确定它是否正确)：
sufficient(X, Y, M, N, F) :-
F is Y-X,
Y>=X,
plus(M, 1, N)
浏览 1提问于2016-12-02得票数 1
回答已采纳
1回答
我有一些数据需要处理，这意味着从这种格式：
"user": {
"id": "AEC77ACD-02D3-0057-842F-DC23D6312389",
"name": "Eliza Chukiua",
"email": "eliza.chukiua@booking.com",
"group": "SSO",
"externalId": "eliza.chukiua@
浏览 4提问于2022-11-07得票数 1
1回答
我使用swi prolog。我的代码在第一行运行，但不会运行其他行。
see(Data), //open file to read
repeat,
readln(A), //read line from file
write(A),
A\==end_of_file,!.
我得到一个意外的文件结束错误。你有什么想法吗？
浏览 0提问于2011-05-06得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
