Prolog:返回原子列表中的事实列表
在计算机科学领域，Prolog是一种逻辑编程语言，它基于一阶逻辑和谓词逻辑的原理。Prolog的特点是通过描述问题的逻辑关系来解决问题，而不是通过指定一系列的计算步骤。在Prolog中，事实（Facts）是一种基本的声明形式，它描述了某些关于世界的真实性质或状态。原子列表是指由原子（Atom）组成的列表，原子是Prolog中的基本数据类型，代表不可分割的符号。
要返回原子列表中的事实列表，我们需要遍历原子列表，检查每个原子是否是已知的事实。如果是事实，则将其加入事实列表中。事实列表是一个包含所有已知事实的列表。以下是一个示例实现的Prolog代码：
% 定义一些已知的事实
fact(apple).
fact(cat).
fact(car).
fact(dog).
% 返回原子列表中的事实列表
getFacts([], []). % 原子列表为空时，事实列表也为空
getFacts([Atom|Atoms], Facts) :-
fact(Atom), % 检查原子是否是事实
getFacts(Atoms, RestFacts),
Facts = [Atom|RestFacts]. % 将原子添加到事实列表中
getFacts([Atom|Atoms], Facts) :-
\+ fact(Atom), % 原子不是事实
getFacts(Atoms, Facts). % 忽略该原子，继续遍历列表
% 示例查询
?- getFacts([apple, cat, dog, elephant], Facts).在这个例子中，我们定义了一些已知的事实，包括"apple"、"cat"、"car"和"dog"。然后，我们定义了一个名为getFacts/2的递归谓词，用于返回原子列表中的事实列表。如果原子列表为空，那么事实列表也为空。否则，我们检查第一个原子是否是事实，如果是，就将其添加到事实列表中，并继续处理剩余的原子。如果第一个原子不是事实，我们忽略它并继续处理剩余的原子。最后，通过查询getFacts/2，我们可以得到原子列表中的事实列表。
注意：这只是一个简单的示例，实际的Prolog程序可能需要更复杂的规则和逻辑来处理事实和查询。此外，根据具体的应用场景，可能需要调整代码以适应特定的需求。
推荐的腾讯云相关产品和产品介绍链接地址：
- 云计算：腾讯云基础云产品 https://cloud.tencent.com/product
- IT互联网：腾讯云互联网行业解决方案 https://cloud.tencent.com/industry/internet
- 数据库：腾讯云数据库产品 https://cloud.tencent.com/product
- 服务器运维：腾讯云轻量应用服务器 https://cloud.tencent.com/product/lighthouse
- 云原生：腾讯云容器服务 https://cloud.tencent.com/product/cks
- 网络通信：腾讯云私有网络 https://cloud.tencent.com/product/vpc
- 网络安全：腾讯云安全产品 https://cloud.tencent.com/product/security
- 音视频：腾讯云音视频处理服务 https://cloud.tencent.com/product/mps
- 多媒体处理：腾讯云媒体处理服务 https://cloud.tencent.com/product/tme
- 人工智能：腾讯云人工智能产品 https://cloud.tencent.com/product/ai
- 物联网：腾讯云物联网产品 https://cloud.tencent.com/product/iotexplorer
- 移动开发：腾讯云移动开发产品 https://cloud.tencent.com/product/mobile
- 存储：腾讯云对象存储产品 https://cloud.tencent.com/product/cos
- 区块链：腾讯云区块链产品 https://cloud.tencent.com/product/baas
- 元宇宙：腾讯云元宇宙解决方案 https://cloud.tencent.com/industry/metaverse
相关·内容
我正试图通过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回答
我有日志条目，其中包括4个不同的术语。
log(name1,surname1,street1,Belgium).
log(name2,surname2,street2,Germany).
log(name3,surname3,street3,France).
log(name4,surname4,street4,France).
我把这个存到loginfo.pl里了。我可以从输入文件(loginfo.pl)中读取这些信息，但是我无法在一个“列表”.After中收集所有这些信息，我需要使用条件来过滤它。
所以在最后我想得到
[log(name3,surname3,street3,France)
浏览 0提问于2015-06-25得票数 0
回答已采纳
1回答
在我的应用程序中，我有许多代理，每个代理都有自己的知识库。
我最初的想法是拥有多个引擎实例，但swi prolog最多只允许一个实例。
另一种方法是在每个事实和规则中添加一个表示代理id的附加术语，但这似乎非常繁琐。
例如，而不是：
position(10, 20).
do(action(X)):-...
我将不得不到处写：
position(agent0, 10, 20).
do(Agent, action(X)):-...
因为我会一次更新一个代理，即使每次保存和恢复所有内容都可以，即使我不知道如何做到这一点。或者使用模块？
分离不同知识库的好方法是什么？
浏览 0提问于2012-12-16得票数 2
回答已采纳
1回答
我在Prolog中有一个列表示例：
list_where([Tequila,Whisky,Vodka],bathroom).
list_where([Martini,Musat],kitchen).
list_where([Malibu,Soho],under_the_bed).
list_where([Epita],everywhere).
现在，我在yap中查阅该文件(我在Ubuntu 15.10上使用YAP )，并启动以下查询：
list_where(X,bathroom).
我的结果是：
X = [_A,_B,_C] instead of X=[Tequila,Whisky,Vodka
浏览 5提问于2016-01-31得票数 1
回答已采纳
我遇到了一些在SWI中定义变量的奇怪(或不太奇怪)问题。示例：
我想做以下几件事：
:- initialization(main).
main :-
X = listing(main),
write(X).
但它只是简单地打印“列表(主)”
浏览 0提问于2015-06-13得票数 2
回答已采纳
打印列表中两个原子的第一个字母。我甚至不能打印列表中两个原子中的一个的第一个字母。 grab_letter([],[]).
grab_letter([A],[B]) :- A = [First|_], B = [Second|_].
?- grab_letter([apple,pie]).
true ? 如何让它打印"a"？
浏览 12提问于2019-03-21得票数 1
所以我有一个坚持不变的练习：
公式为：
tru
fls
变量(V)当且仅当V是原子。
or(Flist)当且仅当列表中的每个元素都是公式
有暗示，也有否定。表单看起来很相似。
我们可以用形式为Var1/Value1，Var2/Value2，...VarN/ValueN的Prolog列表来表示真值赋值(对变量的赋值)。写一个谓词sub(?F，? Asst，?G)，当G是一个公式时，它是用赋值Asst中的相应值替换F的变量的结果。(你可以假设真值赋值A至少是部分实例化的)。
例如。
sub(variable(x), [x/tru], tru).
true
sub(or([variable(a),v
浏览 1提问于2015-04-09得票数 1
例如，我有一些代表数字1到4的原子。
喜欢
number(one).
number(two).
number(three).
number(four).
现在我必须写一个谓词来检查第一个数是否大于第二个数。
istBiggerThen(X,Y) :-
( X < Y
-> true
; false
).
但现在我只能问这样的问题
isBiggerThan(3,4).
但我想
isBiggerThan(three,four).
我该怎么做呢？请帮帮我:)提前谢谢。
浏览 0提问于2014-04-30得票数 0
回答已采纳
我在一个文件中包含了一个术语：
fruit(apple, []).
我正在尝试向它写入输入，这样每组信息都将作为列表附加到空列表中，以组成列表列表，其方式如下：
fruit(apple, [[30, 'fresh'], [10, 'old'], ... ]).
到目前为止，我只知道如何写一个单独的术语：
add_fruit(File, Type, Price, State) :-
open(File, append, Stream),
writeq(Stream, fruit(Type, [Price, State])),
write(Stre
浏览 1提问于2014-10-23得票数 0
我对Prolog很陌生。
使用这个基本的‘数据库’结构，我想我可以查询数据库来找出
谁吃鱼？鲸鱼吃什么？
吃(马，草)吃(猴子，香蕉)。吃(鲸鱼，鱼)。
我不想更改数据库设置(如果可能的话)。我使用了以下查询，并得到了各自不想要的结果：
在这里，我试着问，‘谁吃鱼？’
?- eats(X, fish).
true.
在这里，我试着问，“鲸鱼吃什么？”
?- eats(Whale,X).
X = grass ;
X = banana ;
X = fish.
浏览 6提问于2011-03-08得票数 3
回答已采纳
我有以下事实：
before CS206 is CS121
before CS121 is CS120
before CS120 is CS101
before CS101 is CS100
我试图编写一些Prolog代码来证明before CS206 is CS100
这就是我所拥有的，但是我得到了一个堆栈溢出，因为我的递归被弄乱了。
before(X,Y) :- before(X,Z), before(Z,Y).
before(X,X).
before(CS101,CS100).
before(CS120,CS101).
before(CS121,CS120).
before(CS206,
浏览 4提问于2016-08-20得票数 2
回答已采纳
4回答
我正在尝试定义一个谓词，它在列表列表中搜索元素并返回该元素的级别。例如，在搜索元素时：
?- elementLevel(element,[a,b,c,[d,e],[element,f]],Level).
Level = 2 .
因此，对于每个列表，它都会添加一个级别。我在想一个计数器，但我不知道如何在列表遍历中实现它。
浏览 6提问于2012-02-15得票数 2
回答已采纳
前提
因此，我试图将一个给定的字符串分解为一个字符列表，然后这些字符将被编辑/更改并重新分配到列表中，然后列表将被重新构造为一个字符串。
举个例子：
给定String : "ABCDEFG"
字符list : [A,B,C,D,E,F,G]
操作将列表更改为如下所示：。
然后被重构成一个字符串：
"EFGHIJK"
问题
我正在寻找一种方法来访问字符串中的单个元素。如果是Java，我将使用类似于charAt(int i)的命令，但我不知道这种命令是否存在于prolog中。
Note
我是一个新的prolog程序员，所以我不熟悉大多数prolog操作。
耽误您时间
浏览 4提问于2012-12-05得票数 4
回答已采纳
1回答
假设我有一个包含以下内容的文件main.pl
/* I tried these one at a time, not all at once... */
[externalFile].
['externalFile'].
['externalFile.pl'].
['./externalFile.pl']./*this was an answer to a similar SO question*/
consult(externalFile).
/*... etc ...*/
现在让我们用它..。
$ swipl -l externalFile.
浏览 0提问于2017-09-19得票数 3
回答已采纳
2回答
我在unix上通过poplog运行prolog，想知道是否有一种方法可以读取多个单词(例如将其封装到一个字符串中)。例如，read(X)只允许X为1个项。但是，如果我用"“括起用户输入，它将返回一个字符代码列表，这是正确的方法吗?因为我找不到将其转换回可读字符串的方法。
我还希望能够查看多字字符串是否包含设置值(例如，如果它包含"i this be“)，并且不确定如何能够做到这一点。
浏览 0提问于2010-02-10得票数 11
1回答
我需要写一个代码，应该访问创建的列表。但我不知道是怎么回事，我读到了这个问题：
但这不是我的问题，我用下面的代码创建了这个列表：
p([Head|Tail]):-
read(Head),
p([Tail|Taile]).
my_write([Head|Tail]):- write(Head),nl,my_write(Tail).
我需要创建列表。我该怎么做？这让我很困惑。
浏览 0提问于2012-01-30得票数 0
回答已采纳
1回答
您如何用Prolog编写代码来生成响应用户输入的事实，而不是手动编写它们？
例如，我给出了输入：
约翰尼爱萨利。凯伦爱鲍勃。
程序应该通过创建事实来响应
loves(Johnny, Sally).
loves(Karen, Bob).
我该怎么做呢？
浏览 0提问于2015-10-21得票数 0
我在使用atom_chars时遇到以下错误
9 ?- atom_chars(9abc,X).
ERROR: Syntax error: Operator expected
ERROR: atom_chars(9
ERROR: ** here **
ERROR: abc,X) .
有人能解释一下为什么会发生这个错误吗？我需要一个谓词，可以转换所有类型的输入，如abc，910，abc910,910abc等等，到一个字符列表。对于这种情况，有什么可以替代atom_chars的吗？谢谢。
浏览 0提问于2013-02-05得票数 1
1回答
如何漂亮地打印SWI-Prolog中的术语列表。
我试过了：
portray_clause([term1, term2]).
但这只是在一个很长的流中写出来，一个字符串甚至是一个ascii字符代码的列表-我想要打印"abc“。
浏览 0提问于2012-04-22得票数 4
在内部将列表表示为右分支树。因此，a，b，c代表：
因此，空列表是否表示为具有单个根节点的树(空列表)？
一个包含空列表的列表是否表示为一棵有一个根节点和两个叶节点的树，这两个节点都是空列表？就像这样：
.
/ \
/ \
/ \
[] []
浏览 0提问于2014-03-26得票数 2
回答已采纳
5回答
我是prolog编程的新手，在一篇教程中被告知要定义一个结构列表(在脚本中)，这样我就可以将其作为数据库进行查询。但是，我发现不可能在脚本中将此列表定义为变量。当我定义一个列表时，比如
X=[a,b,c].
我刚收到一条错误消息
No permission to modify static_procedure `(=)/2'
prolog不支持定义这样的变量吗？我在linux下使用SWI-Prolog。
浏览 2提问于2012-04-10得票数 10
回答已采纳
我正在使用SWI-Prolog版本7.6.3，最近我遇到了一个将数字和字母表组合到其ASCII值列表中的术语的转换问题。
我知道我们可以使用name/2谓词获得特定术语的ASCII值列表。例如，如果我想获取术语ab或'ab'的ASCII值，那么我们可以使用name(ab,X)。Prolog简单地输出X = [97, 98]，97和98分别是a和b的ASCII值。
谓词name/2也适用于数字。如果我想获得术语123或'123'的ASCII值，那么我们可以使用name(123,X)。同样，Prolog只是输出X = [49, 50, 51]，其中49、50和51对
浏览 0提问于2018-05-08得票数 3
抱歉，我只想返回谓词名称america
america('kin').
novelist('kin').
writer(X):- novelist(X).
当我在writer(A),novelist(A)下面查询swi时
它只是匹配A= 'kin‘如何更改swi以使其返回美国？
浏览 13提问于2020-02-15得票数 0
回答已采纳
1回答
我有这个：
streams=[[1,2,2,4],[2,1,4,2],[3,4,1,3],[4,3,3,1]]
列表中的数字都是原子，我需要把它们转换成整数。溪流应该是这样的：
streams=[[1,2,2,4],[2,1,4,2],[3,4,1,3],[4,3,3,1]]
但是，对于所有格式为“整数”而不是“原子”的数字，有人能解释一下如何将这些数字转换成整数吗？
浏览 2提问于2022-01-15得票数 0
回答已采纳
2回答
我很难弄清楚如何在不使用递归的情况下访问字符串列表中的单个字符，而是使用回溯。
例如，我有一个字符串列表，我希望能够从这些字符串中返回一个字符(‘’)。'o'，'*')。我正在开发的程序将其视为行和列。在我的数据库中有这样一个事实：
matrix(["...o....",
".******.",
"...o....",
".*...*..",
"..o..*..",
".....*..",
浏览 2提问于2011-10-27得票数 3
回答已采纳
我非常怀疑这是不可能的，但我想知道是否有一种方法可以将原子列表转换为事实列表。假设在两个事实之间不会有原子的重复。 更准确地说，假设我有以下事实列表： person(Mike, male, 33).
person(Frank, male, 24).
person(Julie, female, 25). 我想打电话给你 listFacts( [Mike, Frank], L). 它应该会返回， L = [person(Mike, male, 33), person(Frank, male, 24)].
浏览 12提问于2021-04-01得票数 0
回答已采纳
2回答
使用SWI-Prolog。我有一个等级列表，上面写着：
rank(London, 3.5).
rank(New York, 3.5).
rank(Seattle, 2.3).
我正在尝试制定一条规则，打印/返回具有相同排名的任何事实。因此，在这种情况下，它将返回到伦敦和纽约。
这是我到目前为止想出的，唯一的问题是我用它得到的副本(尽管它们在当前规则下很有意义)。使用递归会对此有所帮助吗？
equal_rank(_):-
rank(U1, R1),
rank(U2, R2),
U1 \== U2,
R1 == R2,
print(R1), print(&#
浏览 0提问于2011-01-14得票数 0
回答已采纳
1回答
Prolog列表问题
、、、
我正在使用flex，我有一个名为university的框架，它有大约100个实例。我想将它们存储在一个列表中，该列表是Prolog而不是Ksl的一部分，并执行搜索操作。例如：该列表应仅包含位于美国的大学。谢谢:)
浏览 1提问于2011-09-21得票数 0
2回答
Prolog中信息检索的性能优化
、、、、
我想用Prolog做一些信息检索任务。目前，我有一组(大量)不同的Prolog理论来表示句子中的依赖关系(顺便说一句，我将这些Prolog代码存储在一个文本文件中)-我只想找到那些与用户定义的目标子句匹配的理论。
例如，我有这样的Prolog代码：
rel("nsubjpass","seen","It",S):-S is 1.
rel("aux","seen","can",S):-S is 1.
rel("auxpass","seen","be",S)
浏览 3提问于2013-04-19得票数 0
回答已采纳
2回答
我的问题源于在用户创建的函数中使用[[和]]来引用列表元素。据我所知，当应用于向量时，[[和]]的工作方式与[和]一样。
但是，在所有其他列表操作中都是这样吗？作为另一个例子，我可以在向量上使用。
这是合理的，如果一个列表只是一个广义的向量，其条目可以是不同的模式。
浏览 0提问于2014-05-02得票数 3
回答已采纳
。我如何在不使用列表或内置谓词atom_chars/2.的情况下将单词拆分成字母
类似于split_word(Word, Letter, Rest).的东西
那里的字母将是单词的第一个字母。
我在拆分字符串时遇到了困难，我不知道如何使用''作为“拆分器”。为了获得灵感，我尝试用predicate_property(atom_char(_,_), P).检查predicate_property(atom_char(_,_), P).的源代码，但在文件中我没有发现任何有用的东西。
帮助感激。
浏览 4提问于2017-12-29得票数 0
回答已采纳
1回答
我有一个递归谓词调用，该调用的输出被附加到带有append/3的列表中。所以输出将是一个列表。我的问题是，有时append/3会被称为这样的东西：
append([[2]], [1,2,3,4], L).
它的输出是[[2], 1,2,3,4]。我想在append/3之前检查第一个元素是否是一个只有一个元素的列表，但是到目前为止我还无法创建一个匹配它的模式。
所以我的问题是:我怎样才能检查某物是否是一张清单呢？
浏览 2提问于2015-12-01得票数 0
1回答
我有一个在单个查询中生成多个列表的谓词。 在所有生成的列表中，是否可以找到大小最小的列表并存储/返回该大小的值？例如。 ?- genList(List).
List = [1,2,3,4,5] ;
List = [6,7,8,9,10,11,12,13] ;
List = [14,15,16,17,18,19] ;
List = [20,21] ;
... 这里最小的列表是2大小的[20,21]。 理想情况下，我希望有一个返回值为2的谓词。 任何帮助都是非常感谢的。提前感谢:)
浏览 13提问于2019-12-10得票数 0
我当时正在搜索，但在prolog中没有发现任何关于如何逆转不完整列表的信息。以下是我所做的：
incomplete_reverse([L|T],Res):-nonvar(L),!,incomplete_reverse(T,Res1),
append(Res1,[L],Res).
incomplete_reverse(L,L):-var(L).
这只是颠倒列表，但我需要它是确定性的，反向列表也必须是一个不完整的列表。我怎么能这么做？
浏览 3提问于2015-11-24得票数 2
回答已采纳
我有一个方法length( list，var)，它给了我一个列表的长度，但是我想要找到一个字符串的长度，有谁有解决方案吗？
浏览 1提问于2012-05-03得票数 5
回答已采纳
3回答
Prolog -插入事实
、、、
我需要在Prolog中编程一个谓词，该谓词将一个元素插入到指定的位置，然后修改列表中其余元素的位置号。我实现的是下一个代码片段，它实现了一个谓词，它在列表的末尾插入一个元素。在数据库扇区中，除了list之外，我们还有一个很长的列表，它表示列表中元素的数量。最后，我尝试实现de谓词时有一些代码。有人能告诉我里面怎么了吗？我在这里迷路了。
Domains
name=symbol
position=integer
element=integer
Database
list(name,position,element)
long(name,integer)
Predicates
浏览 4提问于2012-01-04得票数 0
回答已采纳
1回答
Prolog编译错误？
、、、
我对prolog非常陌生。尝试在尽可能少的时间内尽可能多地学习它。任何帮助都是非常感谢的。顺便说一下，我用的是MacOS Sierra。
我正在尝试输入以下代码行：
nextto(_A,_B).
nextto(_B,_C).
当我使用prolog命令窗口并执行以下命令进行测试时：
?- nextto(A,C).
它不是应该返回false吗？
因为，我的编译结果是true，如下所示：
?- nextto(A,C).
true
浏览 2提问于2016-09-21得票数 1
回答已采纳
我想写一个谓词，它将在列表中的每个元素之后插入一个给定的元素，并打印结果列表。我想对此使用递归。 例如:我的列表是[1,2,3,4,5]，我想在每个元素后插入0。因此，结果列表应该是：[1,0,2,0,3,0,4,0,5,0]。 我写了以下内容： add([],X).
add([H|T],[H|[X|T1]]):-
add(T,T1).
add([H|T],[H|T1]):-
add(T,T1). 我是这样运行的：add([1,2,3], 0).，但是Prolog只写了No。什么意思？我该如何改进这一点呢？谢谢 编辑： 它可以工作，但会显示一些关于单例变量的警告： add([
浏览 27提问于2020-12-01得票数 1
回答已采纳
1回答
我试图在prolog中构建一个简单的最大公共除数(cmmdc)，对于下面的代码，我在newY =cmmdc上遇到了一个失败。有人能帮我吗？
% cmmdc(X: intreg, Y: intreg, Ret: intreg)
% (i, i, o), (i, i, i)
cmmdc(X, 0, X):- !.
cmmdc(X, Y, Ret):-
newY = X mod Y,
cmmdc(Y, newY, Ret).
浏览 6提问于2022-11-27得票数 -1
我试着写一个函数getNumbers(List,Result)，让List是一个列表，他的元素可以是整数或列表列表，例如-
List = [1,[1,2,[3],[4]],2,[4,5]]
List = [1,[1,1,[1],[1]],1,[1,1,[[[[[1]]]]]]]
List = [[4,[[]],2],[[1],[],[1]]]
etc..
并且输出应该是存储在该List中的所有数字，例如-
?- getNumbers([1,[1,2,[3],[4]],2,[4,5]],R).
R = [1,2,3,4,5].
?- getNumbers([1,[1,1,[1],[1]],1,[
浏览 0提问于2013-01-18得票数 2
回答已采纳
2回答
我如何在prolog中编写一个规则，允许它打印两个节点之间的边成本/权重的列表？
我的边缘事实被输入为
edge(X,Y,Weight).
edge(Y,X,Weight).
浏览 0提问于2013-01-13得票数 0
我是prolog的新手，我坚持做一个练习。
我有一个名为"languages.pl“的prolog数据库，我正在处理一个名为"program.pl”的文件，其中包含规则。
一种语言具有名称和创建年份，例如：
COBOL, 1960
PASCAL, 1971
C, 1971
这些语言都有前身，比如：
方案，Lisp - Lisp是前身os方案。
因此，我希望找到一种语言Lp，它比语言L更早，但至少在它们的创建之间有十年的时间，比如：
?- ling_precedes_decade(Lp, L).
Lp = ’C++’,
L = ’Rust’ .
我想像这样的东西：
ling_pr
浏览 15提问于2017-08-21得票数 0
回答已采纳
1回答
我有学生和他们做运动的预测，我想知道哪些学生做了特定的运动。到目前为止，我有这样的结果，但只有在列表中输入精确的运动，而我的查找谓词只能在列表中找到一项运动时，我才能得到结果。我不知道如何把它组合起来，用它来找到做运动的学生：
student('Quinton Tarentino', male, 12).
student('Tom Hanks', male, 9).
student('Ed Harris', male, 11).
does_sport('Quinton Tarentino', [soccer, hockey, c
浏览 4提问于2017-05-28得票数 1
我想解决一个prolog问题。我正在努力打印那些在阿森纳踢球的球员。我解决不了这个问题。
player(rick,arsenal)
player(tom,dortmund)
player(paul,bayern)
player(tim,liverpool)
player(john,arsenal)
player(andrew,arsenal)
产出必须是：
?- sameteam(????)
X= [rick,john,andrew]
浏览 3提问于2021-04-06得票数 0
回答已采纳
我无法在prolog中显示列表列表，请帮助我例如:我有这个列表：[1,2,36,8,7]我想删除这个[]，只显示内容:1 2 3 4 5 6 8 7 6 9
我已经试过了
WriteListe([]).
write_liste([X|Xs]) :-
format('-~w~n', [X]),
write_liste(Xs).
但是当我调用WriteListe(L)时，我得到的结果是L=[] -_6782 L= _6782 .....
？谢谢你
浏览 0提问于2017-12-12得票数 0
3回答
我正在做一个精益prolog的小项目。我现在要做的是，给定一个句子，返回一个单词列表。因此，我接受了一个字符数组，例如“高低”，并试图将其分为“高”和“低”。我使用字符数组，因为我想处理单词本身，而我认为字符串不适用于此。
这是我的代码。
get_first_word([], _, []):-
!.
get_first_word(X, Pivot, Input):-
append(X, [Pivot|_], Input),
!.
split_at([],_).
split_at(Input, Pivot):-
get_first_word(X, Pivot, Input),
浏览 0提问于2013-04-01得票数 2
回答已采纳
palindrome_list_atomes(A,B):-
atom_concat(A,B,C),
atom_chars(C,X),
palindrome_list(X).
我想让palindrome_list_atomes(A，B)排除任意数量的原子(不仅仅是A和B)，然后atom_concat会把这些相对数量的原子加在一起，产生一个原子C。
atom_charts(C,X)
只是将其转换为一个字符列表，然后将X传递给另一个谓词。
我相信这样的事情很简单(应该是这样)，我刚接触Prolog，受够了在google上走进死胡同。
浏览 1提问于2013-04-21得票数 1
回答已采纳
1回答
我在Prolog中有这样一个数据结构：
racks =
[
[
(1-1), 1,
[
shelf((0-0), 1, [ware_a:[0,10]]),
shelf((0-1), 2, []),
shelf((0-2), 3, [])
]
],
[
(2-1), 2,
[
shelf((0-0), 4, []),
shelf((0-1), 5, []),
shelf((0-2), 6, [])
]
].
一个齿条具有坐标(X)(例如(1-1))和一个成本值以及一个搁置列表。货架本身具有相同的坐标(在货架内)、
浏览 1提问于2013-10-28得票数 2
回答已采纳
我第一次在prolog中工作。我正在尝试将操作转换为文本。例如，THREE + THREE = SIX应该返回true。我试过了。我在最后一行遇到错误，当我尝试add(ONE，ONE，TWO)时，它返回false而不是true。
numericValue(ONE, 1).
numericValue(TWO, 2).
numericValue(THREE, 3).
numericValue(FOUR, 4).
numericValue(FIVE, 5).
numericValue(SIX, 6).
numericValue(SEVEN, 7).
numericValue(EIGHT, 8).
n
浏览 3提问于2014-05-07得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
