使用列表理解删除对称对(在列表理解中使用notin )

Question

我有一个函数，在这个函数中，我从列表关系中删除了符号对，工作得很好，但我很好奇是否有可能将它重写为列表理解。

lrel[str,str] newClonePairs = [];
for (tuple[str L, str R] pair <- clonePairs) {
    if (<pair.R, pair.L> notin newClonePairs) {     
        newClonePairs += pair;
    }
}

return newClonePairs;

我已经完成了这一步(请参阅下面的代码)，但是接下来如何编写notin部分呢？是否有某种关键字可用于引用当前列表？

return [pair | tuple[tuple[node,loc] L,tuple[node,loc] R] pair <- clonePairs, <pair.R, pair.L> notin thisCurrentList];

Answer 1

您正在生成的列表不能在列表理解过程中引用。你可以用减速机，但我不认为它会很快。

这个怎么样？

[ <L, R> | [*_, <L,R>, *post] := clonePairs,  <R,L> notin post ]

它将遍历所有的<L,R>对，并且只添加列表的其余部分中找不到的对。

它通过“列表匹配”工作。列表模式可以包含前面有一个*的变量，这将匹配任意长度的子列表(包括空列表)。这样的匹配通常不是唯一的(例如，中间的<L,R>可以在列表中的任何位置，因为*_和*post可以是任意长度的)。如果一个列表模式可以在许多方面匹配一个列表，那么它就变成了一个生成器，:=将循环遍历所有匹配，从左到右类似于<-的行为。另见：http://tutor.rascal-mpl.org/Rascal/Rascal.html#/Rascal/Patterns/Abstract/List/List.html