製作在數學MemberQ可列或穿線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}} 
*) 

Answer 2

MemberQ[#[[1]], #[[2]]] & /@ Transpose[{a, b}]