Re: MemberQ
- To: mathgroup at smc.vnet.net
- Subject: [mg68661] Re: MemberQ
- From: dimmechan at yahoo.com
- Date: Mon, 14 Aug 2006 06:44:46 -0400 (EDT)
- References: <0533005404FE2E45B90AF737DE5A991A015312F3@de01exm67.ds.mot.com> <ebmt7i$6cj$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi leigh,
I am not a specialist, but everything seems ok to me
In[1]:=
$Version
Out[1]=
"4.0 for Microsoft Windows (April 21, 1999)"
In[2]:=
InputForm[lst=Range[0,1,1/10]]
Out[2]//InputForm=
{0, 1/10, 1/5, 3/10, 2/5, 1/2, 3/5, 7/10, 4/5, 9/10, 1}
In[3]:=
MemberQ[lst,2/10]//Trace//InputForm
Out[3]//InputForm=
{{HoldForm[lst], HoldForm[{0, 1/10, 1/5, 3/10, 2/5, 1/2, 3/5, 7/10,
4/5, 9/10, 1}]},
{{HoldForm[10^(-1)], HoldForm[1/10]}, HoldForm[2/10], HoldForm[1/5]},
HoldForm[MemberQ[{0, 1/10, 1/5, 3/10, 2/5, 1/2, 3/5, 7/10, 4/5, 9/10,
1}, 1/5]], HoldForm[True]}
In[4]:=
MemberQ[lst,HoldForm[2/10]]//Trace//InputForm
Out[4]//InputForm=
{{HoldForm[lst], HoldForm[{0, 1/10, 1/5, 3/10, 2/5, 1/2, 3/5, 7/10,
4/5, 9/10, 1}]},
HoldForm[MemberQ[{0, 1/10, 1/5, 3/10, 2/5, 1/2, 3/5, 7/10, 4/5, 9/10,
1}, HoldForm[2/10]]], HoldForm[False]}
Cheers
Jim