Prolog如何在列表中打印前3个元素
在Prolog中，可以使用以下方法打印列表中的前3个元素：
print_first_three_elements(List) :-
length(List, Length),
( Length >= 3
-> List = [First, Second, Third|_],
format('前三个元素分别是: ~w, ~w, ~w~n', [First, Second, Third])
; format('列表中元素个数不足3个~n')).这个谓词print_first_three_elements/1接受一个列表作为参数，并检查列表的长度。如果列表长度大于等于3，则将列表的前三个元素分别赋值给First、Second和Third，并使用format/2函数打印这三个元素。如果列表长度小于3，则打印一条消息表示列表中元素个数不足3个。
例如，调用print_first_three_elements([1,2,3,4,5])将输出：
前三个元素分别是: 1, 2, 3调用print_first_three_elements([1,2])将输出：
列表中元素个数不足3个这个谓词可以在任何Prolog解释器中运行，例如SWI-Prolog或GNU Prolog。
相关·内容
如何打印列表中的前3个元素？
我有一个print方法
print([]).
print([X]) :- !, write(X).
print([X|T]) :- write(X), write(', '), print(T), nl.
浏览 0提问于2011-10-12得票数 4
回答已采纳
1回答
我收到了这个任务，我需要一些帮助。
在Prolog中构建一个程序
检查列表是否为空
检查列表是否为空
检查列表是否只有一个元素
检查一个列表是否有两个或更多个元素
从列表中获取第一个元素
从列表中获取第二个元素
获得一个没有第一个元素的列表(尾)
将元素添加到列表的首
浏览 0提问于2015-09-17得票数 0
我试图初始化一个前5个元素为空的列表，然后将其追加到列表中。目的是，当我将这个列表写入csv文件时，输出将是这样的：，，，a，b，c，这里是我的代码：
l = list()
l[:5]=""
l.append('a')
当我打印这个列表时，它只包含元素'a‘。我如何初始化前5个元素为空的列表，当我打印出来时，它会显示，，，'a‘之类的东西
谢谢
浏览 0提问于2015-09-14得票数 3
回答已采纳
我正在通过学习序言学Prolog。目前，我在chapter4上工作，并且被困在上。
“现在编写一个3位谓词combine2，它以三个列表作为参数，并将前两个列表的元素组合到第三个列表中，如下所示：
?- combine2([a,b,c],[1,2,3],X).
X = [[a,1],[b,2],[c,3]] "
我对此的实施是：
combine2([],[],[]).
combine2([H1|T1],[H2|T2],[[H1,H2],R]):-
combine2(T1,T2,R).
以上查询的结果是：
X = [[a, 1], [[b, 2], [[c, 3],
浏览 6提问于2016-10-09得票数 1
回答已采纳
1回答
run([H|T]) --> num(H),run(T).
run([T]) --> num(T).
num(increase) --> [increase],{write(1),nl}.
num(decrease) --> [decrease],{write(0),nl}.
在这个解析器中，当给定increase时，它打印1，当给定increase时，它打印0。但是，在处理列表的最后一个元素时会出现问题。例如，run(A,[increase],[])打印两个1，run(A,[increase,decrease],[])打印一个1和两个0，这是我不想要的。如何才能使它正
浏览 0提问于2011-06-05得票数 0
回答已采纳
2回答
我正在尝试编写一个谓词，当且仅当列表中的数字按非降序排列时，它才会成功。我很难弄清楚这件事。我知道如果每个元素都小于或等于前一个元素，那么它应该返回false，但是我不知道该怎么做。
ordered(L) :-
浏览 0提问于2018-04-27得票数 0
2回答
Prolog列表问题
、、、
当我遇到这个问题时，我正在试着理解prolog中的列表：
有一个谓词mergeandmap/2基本上应该这样做：
mergeandmap([[a1,...,an],...,[z1,...,zm]],[x1...xn])
%----------list 1------------ -list 2--
列表2与字母(例如a、b、c)相一致。列表1与包含1s和0的大小(List2)元素相一致(例如：[0，0，1，1，1，1，1，1，1])
prolog程序应从列表1中确定应打印列表2中的哪些元素以及何时打印。
对于上面的例子：
([[0,0,1],[1,0,1],[0,1,1
浏览 3提问于2009-12-13得票数 0
回答已采纳
我刚开始学习python，刚刚开始学习基础知识。
我已经递归地定义了一个函数，我想打印一个函数输出的列表。
这是代码：
def x(n):
assert n>=0, "Only non-negative integers n are allowed"
if n == 0:
return 5
else:
return (x(n-1)+5)/x(n-1)
print([x(0),x(1),x(2)])
for k in range(0,9,1):
print(x(k))
所以我的问题是:假设我想打印序列/
浏览 2提问于2020-05-17得票数 1
2回答
如何在swi prolog中重复该列表？
{例如:当Y是由X的每个元素组成的列表重复N次时(例如，repeat(a，b，a，b,3)为真)，则将(X，Y，N)重复为真。}
浏览 0提问于2018-12-04得票数 0
1回答
在下面的代码中，我试图搜索一个列表，如果列表中有匹配，则打印" match“，如果没有匹配，则打印"no match”。如果有匹配，我的代码会打印" match“，但如果没有匹配，则不会打印"no match”，而是返回false。如果列表中没有匹配项，我如何更改我的代码以打印“不匹配”？谢谢
on(Item,[Item|_], X) :- X is 1.
on(Item,[_|Tail],X):- on(Item,Tail,X).
check(X,Y) :- on(X,Y,Z), (Z == 1, write('match&#
浏览 0提问于2013-04-15得票数 2
回答已采纳
他说，我是Prolog的新手，特别是Prolog中的递归。在这里，在列表X上开始递归，在列表Y上递归。这两个规则应该生成X和Y上的项对的列表。例如，如果我输入query：
?- start([a,b], [c,d], Z)
Prolog应打印输出：
Z = [pair(a,c), pair(a,d), pair(b,c), pair(b,d)].
但是我的代码只打印false。有没有人能帮我找出代码中的bug？
start([H|T], Y, Z):- makepairs(H, Y, Z), start(T, Y, Z).
start([], _Y, []).
makepairs(X, [H
浏览 3提问于2021-11-24得票数 0
如何在python中使用for循环打印列表中的前5个元素。我在这里创造了一些东西。
x= ['a','b','c','d','e','f','g','h','i']
for x in x:
print x;
这样，它就可以打印list.but中的所有元素，我想提前打印list.thanks中的前5个元素。
浏览 0提问于2013-11-01得票数 6
回答已采纳
因此，我试图写一个小程序，做以下工作。
我可以在列表中搜索元素，如果元素在列表中找到，那么列表将被打印出来，以确认它已经找到。
所以在基本的伪-
元素列表-计算机、鼠标、键盘、网络摄像机
搜索此列表中的鼠标
输出鼠标在其中找到的列表
在做一些阅读的时候，我发现了一些我想做的事情。这是下面的
on(Item,[Item|Rest]).
on(Item,[DisregardHead|Tail]):-
on(Item, Tail).
如果我输入查询(苹果，梨，葡萄，香蕉，李子，苹果)。然后搜索列表，丢弃不相关的元素，直到它结束并成功为止。
我想要做的是在编辑器中编写我自己
浏览 2提问于2012-11-19得票数 5
2回答
H|T=，递归函数:我希望它打印列表中每个元素的C，例如: C=30和Prolog -9，-10，-30
myfunc(C,[H|T]):-
(\+([H|T]=[])),
write(C), write(' with '), write(H), nl,
myfunc(C,T).
我在开始时检查列表的头不是空的。它给出了这个输出
30 with -9
30 with -10
30 with -30
(32 ms) no
这个输出是我想要的，但我不想在最后得到一个'no‘，因为这会使父函数也失败！我如何删除它，并放一个‘是’来代替？
浏览 5提问于2012-12-01得票数 1
回答已采纳
3回答
如何在Prolog中编写递归定义，以下列方式创建交替列表：
如果列表M是通过从列表( K )和列表( L )中交替获取元素来获得的，则M仍然有效，例如：
?- alternate([1,2,3,4,5,6],[a,b,c],Zs).
Zs = [1, a, 2, b, 3, c, 4, 5, 6]
另外，如果一个列表比另一个列表长，那么较长列表的其余元素将出现在结果的末尾，M。
我对这个问题的尝试有以下几点，但没有奏效：
alternate([],L,L).
alternate(K, [], K).
alternate([Firstk|Restk], [Firstl|Restl], M):-
浏览 1提问于2018-04-29得票数 0
回答已采纳
给定一个列表(如[1,2,3,7,2,5,8,9,3,4] )，我将如何提取列表中的序列？
序列被定义为有序列表(通常我会说n元组，但我在prolog中被告知，元组被称为序列)。因此，我们希望在下一个元素比前一个元素更小的点上削减列表。
因此，对于列表[1,2,3,7,2,5,8,9,3,4]，它应该返回：
[ [1,2,3,7], [2,5,8,9], [3,4] ] %ie we have cut the list at position 4 & 8.
对于本练习，您不能使用构造;或->
事先非常感谢！
示例的结果是：
eg1。
?-function([1,2,3,7,2,
浏览 1提问于2015-04-02得票数 2
回答已采纳
2回答
我目前正在尝试创建一个简单的函数，在给定第一个和最后一个数字的列表中打印整数。
例如，函数调用: count(3,7，Z)将打印"Z = 3,4,5,6,7“
以下是我迄今为止的尝试：
count(First,Last,Result):-
First <= Last,
append(First,Result,Result),
count(First+1,Last,Result).
我到底做错了什么？其思想是，只要第一个小于或等于最后，序列将继续被追加到结果列表。
提前感谢！我和这事斗争很久了！
浏览 2提问于2012-11-30得票数 0
1回答
我有一个任务是创建一个子列表列表，其中的元素按连续顺序排序。我遇到了一些困难，因为当它遍历列表并返回包含一个列表的多个列表时，这不是我想要的。我的目标是一个包含多个长度为3的子列表的列表。
示例
list([]).
list([_|T]) :- list(T).
sublist(L, []) :- list(L).
sublist([HX|TX],[HX|TY]) :- sublist(TX,TY).
sublist([_|TY], X) :- X = [_|_], sublist(TY, X).
这会打印出每一个子列表。
?- sublist([10,20,30,a,b], L).
L =
浏览 17提问于2019-03-28得票数 1
1回答
我试图编写一个程序，它以两个列表作为输入，并检查适当的子集。我一开始是：
proper([A],[]).
proper([],[A]).
proper([A|T1],[A|T2]) :- proper(T1,T2).
对于完全相同顺序的输入来说，这是非常好的。例如：
?- proper([a,b,c],[a,b,c,d]).
Yes
但不适用于投入，例如：
?- proper([a,b,c],[b,d,a,c]).
No
在浏览了这个网站之后，我发现了以前问过的问题：
这导致我修改代码如下：
proper([A],[]).
proper([],[A]).
proper([A|T1],[A|T
浏览 4提问于2013-10-24得票数 6
回答已采纳
这也许是个愚蠢的问题，但我对哈斯克尔很陌生。(实际上，我几个小时前才开始使用它。)
所以我的问题是，我有一个包含4个元素的列表，我需要在一行上打印两个元素，在一个新的行上打印两个元素。
下面是清单：
let list1 = ["#", "@", "#", "#"]
我需要输出如下所示：
#@
##
我知道可以使用以下方法在新行中打印每个元素：
mapM_ putStrLn list1
但是，我不知道如何将其仅用于在新行上打印列表中的部件。
浏览 5提问于2013-05-05得票数 3
回答已采纳
1回答
我有一个清单，名为与许多项目相结合。我想打印前三个项目作为一个字符串，每一个都在一个新的行。如果我输入：
print str(combined[0])
；它将以字符串的形式打印第一项，而不包含在“”内。
但是，如果我试图通过使用以下方法对前三项做同样的操作：
print str(combined[0:3])
打印前三项，但仍在列表中。
如何使列表中的这三项以字符串的形式打印出来，每一项都在新行上？
浏览 0提问于2017-05-20得票数 0
如何在prolog中读取数组“列表”并打印？我需要:-提示用户插入一个数组用户如何告诉我他完成了，然后我打印出来
我只是想不出如何在谓词中实现这一点。
浏览 3提问于2012-03-18得票数 0
回答已采纳
我是使用Prolog的新手，我想写一个程序来计算给定列表的倒数第三个元素。例如
ThirdLast ([1, 2, 3, 4, 5] , Ans).
将会给我带来：
Ans = [3, 4, 5]
我这样做了，但没有起作用
len([],0).
len([_|T],N) :- len(T,X), N is X+1.
ThirdLast([ ],0)
ThirdLast([H|L1], X):-(len(L1,N)==2), X is H.
ThirdLast ([H|L1],X):-(len(L1,N)>2),ThirdLast (L1,X).
有什么想法吗？
浏览 2提问于2015-12-02得票数 0
如何在Prolog中删除列表中的前N个元素？如何将一个列表中的前N个元素放到另一个列表中？我需要它，以便从指定位置插入另一个列表中的列表。我已经有了连接函数，并计划获取初始列表的前N个元素的列表，将其与第二个列表连接起来，然后将结果与第一个列表中剩余元素的列表连接起来(通过删除前N个元素获得)。
浏览 2提问于2011-04-07得票数 2
打印列表/生成器的前N项
这适用于普通列表。它打印列表的前3项
l=[1, 2, 3, 4]
print(l[:min(3, len(l))])
我也想为少于三个项目的列表做这项工作。如果列表中只有一项，则打印一项。
AFAIK len(l)仅适用于列表。如何为生成器实现这一点？
浏览 0提问于2016-12-22得票数 2
calcHeu([],K) :- nl.
calcHeu([X|Rest],K) :-
findMin(X,Y),write(Y),
calcHeu(Rest,Y).
如果我传递[1,2,3,5,4,9,7,8,9]，它将打印1 4 7，这是我想要添加这些值并返回它们的每个列表的最小值。在列表中或作为单个值。
浏览 0提问于2012-04-08得票数 0
回答已采纳
4回答
我试图用Prolog编写一个程序，它将包含三个列表(所有这些列表都是相同的长度)并返回一个列表列表。
我要返回的列表列表是一个三重列表，其中包含正在传递的三个列表中的元素。三元组的第一个元素来自传入的第一个列表，第二个元素来自第二个列表，第三个元素来自传入的第三个列表。
我想要发生的是函数返回的三元组列表，以返回从传入的三个列表中可以生成的每一个可能的组合。
到目前为止，我有一些代码，这些代码接受三个列表的前几个元素，并将它们分成三个，然后从所有列表中提取第二个元素，然后再从它们中提取一个三元组，以此类推。它在下面。
listCombos( [], [], [], []).
lis
浏览 0提问于2018-10-14得票数 1
2回答
我想要获取一个整数列表，并创建一个位于前一个列表中整数之间(或空隙中)的整数列表。例如，我希望?- findmissing([1,3,4,5,6],X).结果为X = [2]。我如何实现这样的函数呢？
浏览 5提问于2011-10-07得票数 0
回答已采纳
我现在正在学习prolog，但我遇到了一些有趣的问题。
我们的目标是打印一份家庭关系的清单，
事实是：
parent(john, paul).
parent(john, mary).
parent(paul, henry).
parent(paul, june).
parent(henry, helen).
parent(mary, adam).
目标是按如下方式打印列表，
L =
[john,
[paul,
[henry,
[helen]
],
[june]
],
[mary,
[adam]
]
]
这是我的代码和我现在得到的，
d
浏览 1提问于2018-10-16得票数 2
回答已采纳
2回答
我正在编写，如何通过单击按钮浏览列表？
示例
我有一份名单
import streamlit as st
lst =['a','b','c']
next = st.button('next',key='next')
for i in lst:
if next:
st.write(i)
如何在列表中迭代以在按钮单击时打印列表的每个元素？上面的代码只是一次给出所有的元素，但是我想要的是:我按下按钮，它应该打印'a'，然后在另一个点击，它应该打印'b'等等。
浏览 9提问于2022-04-19得票数 0
回答已采纳
如果我有一个Prolog形式的列表，比如X = [1, 2, 3, 4, 6, 7]，那么如何将元素5添加到列表中以获得X = [1, 2, 3, 4, 5, 6, 7]
浏览 1提问于2016-04-05得票数 0
回答已采纳
4回答
我知道，如果我用以下方式写我的计划代码，并输入(单词‘(a，b，c))，它就会按相同的顺序列出列表。您能告诉我是否有办法按相反的顺序打印出来吗？前-(列出‘c’b‘a)。它需要是我按相反顺序打印出来的用户的输入。所以，我不能称之为(反向'(a，b，c))。因为用户输入可以是'(x )。非常感谢。
(定义(Word X))
)如果(空？x) x
(cons(car x)(word (cdr )
(单词'(a，b，c))
(列出a 'b 'c)
浏览 4提问于2010-08-01得票数 2
如何在Prolog中搜索出现多次的特定元素的列表？
例如，如果我们在列表[1,2,3,4,1]中搜索元素1，则Prolog应返回true，否则所有其他数字将返回false。
这就是我到目前为止所知道的：
duplicate([], _) :-
false,
!.
duplicate([X|_], X) :-
true,
!.
duplicate([H|T], X) :-
T = [_|T1],
duplicate(T, X),
duplicate(T1, X).
我的基本想法是搜索列表，直到找到我要查找的元素，然后在列表的尾部再次搜索该项目。我不想使用
浏览 6提问于2014-08-24得票数 2
如何在prolog中将格式和打印结合起来？
基本上，我假装在prolog中打印了一条类似于“元素5发生3次”的消息。数字5和3取决于执行。
在Python中，它将类似于：
print("Element %d occurs %d times" % (element, occurrences))
例如，在一个小例子中，如：
count_occur(X, [], N) :- write("Element ??X occurs ??N times.").
浏览 1提问于2017-05-20得票数 2
回答已采纳
3回答
我试图打印一个表格，即周期表中的前十个元素作为一个链表，结构作为数据。结构保存元素的数据，如下所示：
typedef struct element{
char *name;
char *symbol;
float weight;
}element;
然后创建列表本身-- likeso：
typedef struct list{
struct element elements[]; //an array holding element types?
struct list *next;
}list;
因此，由于我需要打印前10个元素，所以我尝试使用数组
浏览 4提问于2020-08-29得票数 0
回答已采纳
1回答
我正在尝试用Prolog工作，但我无法理解如何解决我的问题。我正在尝试做的是创建3个元素的元组，每个元素来自不同的列表。我需要做的是为三个列表中的每一个可能的组合创建一个三元组。我的计划是获取两个列表中的第一个元素，然后遍历第三个列表中的每个元素，为每个元素创建一个元组。然后获取第一个列表中的第一个元素和第二个列表中的第二个元素，并再次遍历第三个列表中的每个元素。我知道这可能很难理解。我的总体目标是为三个列表中的每个可能组合创建一组元组。元组中的第一个元素来自第一个列表，第二个元素来自第二个列表，第三个元素来自第三个列表。
我是prolog的初学者，所以我对我需要往哪个方向走以及如何用代码来写
浏览 1提问于2018-10-13得票数 1
我编写了程序，计算给定列表中包含多少奇数。为了使用它，您需要在这个表单knelyg([1,2,3],K).中键入查询。这是我的问题，现在，我的程序将返回false，而不是K=2。
我的问题是，如何确保K值返回给用户并打印出来，而不使用程序本身的任何写函数？
calc(S,K):-
S = [First|Tail],
(First rem 2 =:= 0 -> calc(Tail,K); K1 is K + 1),
calc(Tail,K1).
knelyg(S,K):-
K = 0,
calc(S,K).
浏览 0提问于2015-11-21得票数 0
回答已采纳
我正在尝试解析一个列表，例如：[1,3,3,2,2,7,2,9] 假设我有以下代码，其中isTwo将打印No，如果它不是2，则失败。如果它不是2，我希望它失败。如果它是2，它将打印Yes并成功。 isTwo(2) :-
write('Yes'), !.
isTwo(_) :-
write('No'), fail. 我的问题是，我定义了一些类似迭代器的东西，我希望解析整个列表来找到第一个成功的列表。 iter([]).
iter([Head|Tail]) :-
isTwo(Head),
iter(Tail). 这可以很好地
浏览 26提问于2019-02-27得票数 1
1回答
我的规则是将第一个参数与列表中的第三个元素统一起来。该列表是规则中的第二个参数。如果没有第三个元素，这应该会失败。
在经历了许多例子和困惑之后，我创建了这个规则。
third(X,[_|T]):-
[_,Y] = T,!,fail,
(Y,X).
所以我的理解，我认为是不正确的，它将Y设置为列表T的第三个元素，因为T是初始列表的尾部。然后它会把Y和X统一起来。
我仍然对“统一”这些元素的代码感到困惑
浏览 0提问于2012-10-24得票数 0
回答已采纳
我正在做一个基本的家谱程序，并且在只打印一次列表方面有困难。
firstcousin(C,X) :-
grandparent(G,X),
grandparent(G,C),
C\=X,
\+sibiling(C,X).
它打印出正确的人，只是它做了两次。我知道这与祖父母有关，因为每个人都有两个祖父母。基本上，它会看X和C的一位祖父母，然后看另一位祖父母。总之，我不想重复表兄弟的名单。
浏览 4提问于2015-10-28得票数 0
1回答
我正在尝试理解Prolog中的递归，但它肯定与PHP、Java和C等其他语言中的递归不同。我一直在阅读有关它的所有教程，但我仍然没有得到具体的、相当复杂的案例。
例如，为了获取列表中元素出现的次数，我们有：
occurrence([], _, 0).
occurrence([H | T], H, N) :- !, occurrence(T, H, N1), N is N1 + 1.
occurrence([_ | T], H, N) :- occurrence(T, H, N).
它可以使用以下方法调用：
occurrence([1,4,9,1,2],1,R).
其结果应该是：
?- R=2
浏览 2提问于2014-04-29得票数 0
回答已采纳
1回答
在prolog里我该怎么做？
我已经得到它来生成一个子列表，但是现在需要确保第二个列表的第一个和最后一个元素不包括在第一个列表中。
sublist(S,L):- append(_,L2,L), append(S,_,L2).
浏览 1提问于2020-11-16得票数 1
回答已采纳
2回答
sorted(zip(all_genres, glob_sums), key = float, reverse=True)[:3]
我需要打印我的数据的前3个值，但我一直得到'float' object is not iterable error。glob_sums是浮点值的列表，all_genres是相应字符串值的列表。如何按glob_sums的降序对列表进行排序，然后显示前3个值及其对应的名称？
浏览 0提问于2021-10-24得票数 0
1回答
我想将列表追加到列表中。
foo([a,b,c]).
goo([d,e,f]).
hi(X):-append(foo(X),goo(X)).
我希望得到如下所示的结果。但我意识到我不能执行foo(X)和goo(X)。
?- hi(X).
|: [a,b,c,d,e,f].
浏览 0提问于2017-11-12得票数 2
4回答
我正在尝试定义一个谓词，它在列表列表中搜索元素并返回该元素的级别。例如，在搜索元素时：
?- elementLevel(element,[a,b,c,[d,e],[element,f]],Level).
Level = 2 .
因此，对于每个列表，它都会添加一个级别。我在想一个计数器，但我不知道如何在列表遍历中实现它。
浏览 6提问于2012-02-15得票数 2
回答已采纳
为了解决这个问题，我如何在Prolog中合并像这样的输出：
[[z], [l, e, d], [j, i, d, c, a], [g, f, b], [h, b]]
为了取得结果：
[z]
[l,e,d,j,i,c,a]
[g,f,b,h]
不确定如何合并包含至少一个相似字符的多个列表。
我会感谢更有经验的人的任何帮助，因为我只是初学者，这个任务是相当棘手的。
谢谢。
编辑
任务是从用户定义的边缘获取所有连接的组件，并在输出时打印出来。
例如，用户输入边：
data([[z,z],[a,c],[c,d],[d,i],[i,j],[d,e],[e,l],[b,f],[f,g],[b,h]])
浏览 3提问于2017-02-02得票数 1
回答已采纳
1回答
我需要更改列表中的元素，我有以下代码：
change_aux(_,_,[],[]).
change_aux(X,Y,[X|T],[Y|S]):-!,change_aux(X,Y,T,S).
change_aux(X,Y,[Z|T],[Z|S]):-change_aux(X,Y,T,S).
flatten2([], []) :- !.
flatten2([L|Ls], FlatL) :-
!,
flatten2(L, NewL),
flatten2(Ls, NewLs),
append(NewL, NewLs, FlatL).
flatten2(L, [L]).
浏览 1提问于2016-10-21得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
