使用 ETS Select 形成交叉点

Question

我有以下 ets 结构：

SomeTable = ets:new(sometable, [bag]).
ets:insert(SomeTable, [
                        {set1,item1},
                        {set1,item2},
                        {set1,item3},
                        {set2,item1},
                        {set2,item2},
                        {set2,item4}]).

我想使用 ets:select 和 fun2ms 获得 set1 和 set2 的交集，结果将是 [item1, item2]。

我花了几个小时试图用 ets:select 和 fun2ms 来完成它，但没有成功。 你能帮我使用 ets:select 和 fun2ms 吗？

感谢您的所有回答！

PS：我知道sets模块，但我必须使用ets和这个确切的数据结构。

Answer 1

qlc:e(qlc:q([ I || {set1, I} <- ets:table(sometable), ets:match_object(sometable, {set2, I}) =/= []])).