使用ETS选择形成交叉点

Question

我有以下ets结构：

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

我希望使用ets得到set1和set2的交集：select和fun2ms，结果将是[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}) =/= []])).