使用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：我知道集合模塊，但是我必須使用ets和這個確切的數據結構。

Answer 1

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