如何在prolog中将列表的最后一个元素与另一个列表的最后一个元素进行比较？
在Prolog中，可以使用递归的方式来比较两个列表的最后一个元素。下面是一个示例的代码：
% 定义一个规则，比较两个列表的最后一个元素
compare_last_elements(List1, List2) :-
% 递归基，当列表1和列表2都只有一个元素时，比较它们
length(List1, 1),
length(List2, 1),
last(List1, Last1),
last(List2, Last2),
compare(Result, Last1, Last2),
% 根据比较结果输出相应的信息
(
Result = (=),
write('最后一个元素相等')
;
Result = (<),
write('列表1的最后一个元素小于列表2的最后一个元素')
;
Result = (>),
write('列表1的最后一个元素大于列表2的最后一个元素')
).
% 递归步骤，将列表1和列表2的头部元素去除后，继续比较剩余部分
compare_last_elements([_|Tail1], [_|Tail2]) :-
compare_last_elements(Tail1, Tail2).使用示例：
?- compare_last_elements([1, 2, 3], [4, 5, 6]).
列表1的最后一个元素小于列表2的最后一个元素
true.
?- compare_last_elements([1, 2, 3], [4, 5, 3]).
最后一个元素相等
true.
?- compare_last_elements([1, 2, 3], [4, 5, 2]).
列表1的最后一个元素大于列表2的最后一个元素
true.在这个例子中，我们定义了一个规则compare_last_elements，它接受两个列表作为参数。首先，我们检查列表1和列表2是否只有一个元素，如果是，则比较它们的最后一个元素并输出相应的信息。如果列表1和列表2都不止一个元素，我们将它们的头部元素去除，然后递归调用compare_last_elements来比较剩余部分。这样，我们可以逐步比较两个列表的最后一个元素。
请注意，这只是一个示例代码，你可以根据实际需求进行修改和扩展。另外，由于要求不能提及特定的云计算品牌商，因此没有提供相关产品和链接。
相关·内容
2回答
尝试为函数matchFirstTwo(List1, List2)编写包含以下规则的Prolog规则，如果第一个列表的最后两个元素=第二个列表的前两个元素，则计算结果为true。无法在解决方案中实现追加和反转。
last([X], X).
last([_|Z], X) :- last(Z, X).
nextToLast([X,_], X).
nextToLast([_|Z], X) :- nextToLast(Z, X).
Write matchFirstTwo(List1, List2) -当List2的第一个和第二个元素等于List1的最后两个元素时，成功
% Example :
?- m
浏览 0提问于2017-12-10得票数 2
2回答
如何使用尾递归编写添加列表元素的函数？
function、functional-programming、ocaml
我需要用OCaml编写一个函数，它在两个不同的递归中添加两个列表的元素:简单和尾。我做了一个简单的：
let rec add1 a b =
match (a, b) with
([], []) -> []
| (head1::tail1, []) -> head1 :: add1 tail1 []
| ([], head2::tail2) -> head2 :: add1 [] tail2
| (head1::tail1, head2::tail2) -> head1 + head2 :: add1 tail1 tail2
;;
它
浏览 0提问于2018-11-05得票数 0
回答已采纳
1回答
包含等元素索引的列表
list、indexing、prolog
我试图定义一个谓词，它以3个列表作为参数，第三个列表包含其他两个列表中的元素相同的索引。
这是我解决这个问题的尝试。
sameIndex(List1, List2, List3) :- findIndex(List1,List2,0, List3).
% Helper Function
% Base cases
findIndex([],_,_,[]).
findIndex(_,[],_,[]).
findIndex([Head1|Tail1], [Head2|Tail2], Count, List4):-
Head1 == Head2, append([Count], Lis
浏览 3提问于2017-04-10得票数 1
回答已采纳
1回答
合并两个有序列表ProLog
prolog
到目前为止，这是我的代码。我的prolog只是一个乞讨者，但我上学需要它
firstElement([_|_], [Elem1|List1], [Elem2|List2]):-
Elem1 =< Elem2, merge([Elem1] , List1, [Elem2|List2]);
merge([], [Elem2], List2).
merge([Head|Tail], [Elem1|List1], [Elem2|List2]):-
Elem1 =< Elem2,!, add(Elem1,[Head|Tail],[Head|Tail1]),
浏览 0提问于2018-05-12得票数 1
1回答
在prolog中创建两个列表的联合
list、prolog
我需要做两个列表的和，在结果中没有重复的元素(即一个联合)。例如：
?- union([3,4,c,5], [7,f,c,3], X).
X = [3, 4, c, 5, 7, f].
基本思想似乎是获取列表A的每个元素，并在这样做时将它们添加到输出中。
在列表A为空后，遍历列表B，只添加那些不在列表A中的元素。
到目前为止，我所掌握的是：
union([],[],[]).
union(List1,[],List1).
union([Head1|Tail1],List2,[Head1|Output]):-
union(Head1,List2,Output).
此谓词将
使用空列表
浏览 1提问于2017-10-23得票数 3
回答已采纳
2回答
我得到两个数组，一个包含名字，另一个包含姓氏。到目前为止，我已经能够按字母顺序对姓氏进行排序，同时保留相应的名字。我的问题是重复的姓氏。我的目标是首先对姓氏进行排序，然后如果一组人有相同的姓氏，我希望在保持数组其余部分不变的情况下对他们的名字进行排序。 #include <iostream>
#include <string>
#include <stdio.h>
#include <stdlib.h>
using namespace std;
#define NUM_PEOPLE 10
void swap(string *array1, s
浏览 20提问于2020-11-05得票数 1
回答已采纳
3回答
如何找出列表之间的区别？
c#、list、linq、generics
因此，我试图找出两种类型的人之间的区别。这是person类：
class Person
{
public int Age { get; set; }
public string FirstName { get; set; }
public string LastName { get; set; }
public Person(int age, string firstName, string lastName)
{
this.Age = age;
this.FirstName = firstName;
t
浏览 2提问于2020-05-10得票数 2
回答已采纳
1回答
压缩两个长度不等的列表
prolog
嗨，我应该学习Prolog，而我的老师要求我们创建一个谓词。我们需要创建一个名为compose的谓词，它的行为类似于zip，但可以接受长度不相等的两个输入列表。如果其中一个大于另一个，则简单地将较大列表中剩余的多余元素附加到结果的末尾。教师指定的行为如下所示：
?- compose([a,b,c],[x,y,z],L).
L = [a,x,b,y,c,z]
?- compose([a,b,c],[x,y],L).
L = [a,x,b,y,c]
?- compose(L1,L2,[a,b,c]).
L1 = [] L2 = [a,b,c] ;
L1 = [a] L2 = [b,c] ;
L1
浏览 1提问于2017-11-13得票数 0
1回答
prolog集合，堆栈溢出
prolog、algebra
我将展示一些代码，并问，哪些可以优化，我在哪里很糟糕？
sublist([], []).
sublist([H | Tail1], [H | Tail2]) :-
sublist(Tail1, Tail2).
sublist(H, [_ | Tail]) :-
sublist(H, Tail).
less(X, X, _).
less(X, Z, RelationList) :-
member([X,Z], RelationList).
less(X, Z, RelationList) :-
member([X,Y], RelationList),
l
浏览 0提问于2011-02-14得票数 2
1回答
在Prolog中的列表位置
prolog
我正在尝试编写一个谓词，它遵循一些简单的条件。它应该接受2个列表和2个变量，如果第一个变量位于第一个列表中的相同位置，则应该返回true，而第二个变量位于第二个列表中。我做了一部分，但我正在努力让另一部分发挥作用。这就是我到目前为止所做的，但在某种程度上，我需要检查列表中的其他位置。
position([A|_],[B|_],Var1,Var2):-
A = Var1,
B = Var2.
例如，我希望能够这样写：
position([x,y,z],[1,2,3],z,3).
true .
提前谢谢。
编辑
我已经试过了，我写的东西一直给我错误，我认为这会奏效，但它不.：
浏览 0提问于2014-10-12得票数 2
回答已采纳
1回答
erlang中的列表尾部模式匹配
erlang、pattern-matching
假设我有两个列表：
First = [1,2,3,4].
Second = [1,2,3,4,234242].
我知道第二个列表中的所有元素都与第一个列表中的元素匹配，但最后一个额外的元素除外。如何使用模式匹配来获取最后一个？
浏览 2提问于2018-07-18得票数 1
2回答
Prolog，要编号的数字列表，哪一个更快？
list、numbers、prolog
那么，假设我有list [1,2,3,4,5]，我想从这个列表中得到12345。
这是我写的代码
l_to_n(L, N) :-
reverse(L ,P),
list_to_n(P,0,N).
list_to_n([H|T], C, N) :-
C1 is C + 1,
list_to_n(T, C1, P),
N is H*(10**C) + P.
list_to_n([], _,0).
这是我发现的东西
l_to_n(List, N) :-
add_zero(List,Num),
name(N,Num).
add_zero([X|
浏览 2提问于2015-12-20得票数 0
回答已采纳
2回答
prolog追加列表
list、prolog
我在输入一个列表时遇到了一个问题，我想把它的元素附加到另一个我想要输出的元素上
这是我的代码：
run([],L).
run([X|Y],Lista) :- X =..Total, append(Total,Lista,ListaR), run(Y,ListaR), stamp(ListaR).
stamp([]).
stamp([X|Y]) :- nl, write(X), stamp(Y).
如果我用以下命令运行它：
run([p(X,Y,Z),h(Z,P,Q)],[]).
它将打印出来：
h
_G238
_G244
_G245
p
_G236
_G237
_G238
p
_G236
_
浏览 3提问于2011-07-23得票数 0
回答已采纳
1回答
给定两个排序列表，如何查找出现在list1中但不在list2中的元素？
algorithm
我在一次面试中被问到这个问题。
例如，如果给定list1: 1,1,2,4,5,7和list2: 1,3,5,8，我们应该返回一个list3: 2,4,7。
这个问题需要固定的空间，我们需要尽可能地减少时间复杂度。
浏览 2提问于2016-03-19得票数 3
回答已采纳
1回答
Prolog程序从结果列表中排除整数
list、prolog
我需要将一个列表拆分成大于N的列表和小于N的列表，同时忽略任何非整数。它工作得很好，除了当我包含非整数时抛出一个异常。有没有人知道我做错了什么：
split([],N, [],[]).
split([HeadOrig | TailOrig], N, L1, TailOrig):-
\+ integer(HeadOrig),
split(TailOrig, N, L1, TailOrig).
split([HeadOrig|TailOrig],N, [HeadOrig|Tail1],L2):-
integer(HeadOrig), HeadOrig >= N,
浏览 4提问于2017-07-09得票数 1
1回答
基于点积的Prolog递归生成列表
prolog
嗨，我有一个prolog函数/谓词？这是两个列表的点乘积。并希望使用它来编写一个函数，从一个列表和一个列表构建一个点产品列表。因此，基本上，点乘积将在列表中的每个列表上调用，函数点在下面，它可以工作。
dot([], [], 0).
dot([Head|Tail], [Head2|Tail2], Result) :-
Prod = Head * Head2,
dot(Tail, Tail2, Remaining),
Result is Prod + Remaining.
这是我每次尝试运行的函数失败的尝试。有人能帮忙吗？
dotAll([], [[]], [0]).
浏览 2提问于2014-03-10得票数 0
回答已采纳
2回答
Prolog -奇怪的问题
prolog
因此，我有一个任务，在其中，我必须做一个猜测游戏()。首先，我做了一个小程序，你输入两个数字，它检查它们是否有相同的长度，然后它们是否相等。*这些数字有有在列表中，以便能够在每次猜测中给出公牛和奶牛的数量(见游戏规则)。
equal([],[]).
equal([Ha|Ta],[Hb|Tb]) :-
Ha = Hb, equal(Ta,Tb).
check_length(List1,List2):-
same_length(List1,List2),writeln('The Lists have the same
浏览 2提问于2012-02-08得票数 1
回答已采纳
1回答
Prolog两个有序列表的有序列表
prolog
我需要写一个谓词p(X，Y，Z)，作为变量Z的值，给出元素X和Y的一般有序列表，例如？- p(1,3,5,7,8，2,3,5,7，Z)。Z=1,2,3,3,5,5,7,7,8
我第一次尝试：
p([],X,X).
p(Y,[],Y).
p([HLIST1|LIST1],[HLIST2|LIST2],[HLIST1|Z]):- HLIST1 < HLIST2,!,p(LIST1,LIST2,Z).
p([HLIST1|LIST1],[HLIST2|LIST2],[HLIST2|Z]):- HLIST2 =< HLIST1,!,p(LIST1,LIST2,Z).
swi给了我假
第二次
浏览 5提问于2022-10-11得票数 1
回答已采纳
2回答
按升序合并2个排序列表
python、computer-science
有没有一种方法可以合并两个排序列表，其中list1是升序的，list2是降序的，但是新合并的列表应该是升序的。我希望在不使用任何内置函数或递归的情况下做到这一点。
我有以下内容，但它只有在list2也是升序的情况下才起作用。
def merge2(list1, list2):
results = []
while len(list1) and len(list2):
if list1[0] < list2[0]:
results.append(list1.pop(0))
else:
resul
浏览 2提问于2018-11-14得票数 0
1回答
什么能吹灭我的笔记本电脑的尾部递归功能？
scala、function、functional-programming
我需要用奇数和偶数索引将组列表变成两个列表，从1开始，而不是0。我有一个无限递归的问题，正如我想的，因为做第二个函数的时间太长了，而我的笔记本电脑将占据火星。
使用简单递归的第一个函数工作得很好，但是第二个带有尾递归的函数merge2正在吹熄我的计算机。
以下是代码：
// Simple recursion
def merge1(listA: List[String], listB: List[String]): List[String] = (listA, listB) match {
case (Nil, Nil) => Nil
case (head1 :: tail1, N
浏览 0提问于2018-11-07得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
