wolfram-mathematica - 使 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}}
*)