从使用Findall生成的列表中删除重复项
[英]Removing duplicates from a list generated with Findall
问题描述
我正在通过提供一个非常简单的数据库来记录和发送电子邮件，以此来练习Prolog。
我创建使用列表findall预先指定的接收器的X 。
1 个解决方案
解决方案1
2 已采纳 2014-01-04 19:27:43
使用您的列表/ 2：
all_receivers(X,Uniques) :- findall(Y,(email(X,Y)),List),list(List,Uniques).
但最简单的方法是sort / 2，或更好的setof / 3
all_receivers(X,List) :- setof(Y,X^(email(X,Y)),List).
使用“优先级”从列表中删除重复项
声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.