Wolfram mathematica 使MemberQ在Mathematica中可列出或线程化MemberQ函数

我正试图通过一个列表执行

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

nor

MemberQ@Thread

工作

MemberQ

属性受保护

MemberQ[[1]]、[[2]]]和/@Transpose[{a，b}]

这是：

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}}
*)

---

那么

MapThread[MemberQ，{a，b}]

呢？@Heike又同时回答了一次！：回答得好！这正是我想要的，或者

MemberQ[[1]]、[2]]&/@Thread[{a，b}]

采取OP方法