使MemberQ可以在Mathematica中列出或者线程化MemberQ函数

Question

我试图MemberQ穿过一个列表,即:

我有

a={{1, 9}, {2, 5}, {3, 1}, {4, 3}};
b= {1, 5, 2, 6};

理想情况下,我希望有一个线程和可列表MemberQ函数TLMemberQ来执行以下操作:

TLMember[a,b]返回{True,True,False,False}.我怎样才能以最快的速度执行此操作.注意:既不起作用Thread@MemberQ也MemberQ@Thread不起作用.MemberQ属性是Protected

Answer 1

这个:

MapThread[MemberQ, {a, b}]

？

看看它是这样的:

Trace[
    MapThread[MemberQ, {a, b}],
    MemberQ
]
(*
{{MemberQ[{1,9},1],True},
 {MemberQ[{2,5},5],True},
 {MemberQ[{3,1},2],False},
 {MemberQ[{4,3},6],False}}
*)