编写一个Prolog谓词，查找2个列表的交集，并输出一个包含G和数字[G2252，G2255]的列表
创始人
2024-12-07 05:01:20
0次 
intersect([], _, []).
intersect([H|T], L2, [H|Res]):- member(H, L2), intersect(T, L2, Res).
intersect([_|T], L2, Res):- intersect(T, L2, Res).

find_intersection(List1, List2, [G|[G2252, G2255]]):- 
    intersect(List1, List2, G), length(G, Len), Len >= 2,
    nth0(0, G, Ele1), nth0(1, G, Ele2),
    atom_concat('G', Ele1, G2252), atom_concat('G', Ele2, G2255).

示例：

?- find_intersection([1,2,3,4,5],[3,5,7,9,11], Result).
Result = [3,5,[G3,G5]] 

?- find_intersection([1,2,3,4,5],[6,7,8,9,10], Result).
Result = [].

上一篇：编写一个Prolog函数，可以罗列所有加法组合及其答案。

下一篇：编写一个Prolog谓词，返回列表中所有项的权重之和。

相关内容

热门资讯

Android Recycle... 要在Android RecyclerView中实现滑动卡片效果，可以按照以下步骤进行操作：首先，在项...
安装apache-beam==... 出现此错误可能是因为用户的Python版本太低，而apache-beam==2.34.0需要更高的P...
Android - 无法确定任... 这个错误通常发生在Android项目中，表示编译Debug版本的Java代码时出现了依赖关系问题。下...
Android - NDK 预... 在Android NDK的构建过程中，LOCAL_SRC_FILES只能包含一个项目。如果需要在ND...
Akka生成Actor问题 在Akka框架中，可以使用ActorSystem对象生成Actor。但是，当我们在Actor类中尝试...
Agora-RTC-React... 出现这个错误原因是因为在 React 组件中使用，import AgoraRTC from “ago...
Alertmanager在pr... 首先，在Prometheus配置文件中，确保Alertmanager URL已正确配置。例如：ale...
Aksnginxdomainb... 在AKS集群中，可以使用Nginx代理服务器实现根据域名进行路由。以下是具体步骤：部署Nginx i...
AddSingleton在.N... 在C#中创建Singleton对象通常是通过私有构造函数和静态属性来实现，例如：public cla...
Alertmanager中的基... Alertmanager中可以使用repeat_interval选项指定在一个告警重复发送前必须等待...