Re: Lists and rules

*To*: mathgroup at smc.vnet.net*Subject*: [mg66524] Re: Lists and rules*From*: "Szabolcs Horvat" <szhorvat at gmail.com>*Date*: Fri, 19 May 2006 03:39:11 -0400 (EDT)*References*: <e4bj1m$1b9$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

You could use Position[ ]. Here, T[[1]] is A. In[1]:= A=Table[Random[Integer,{1,3}],{20}] Out[1]= {3,2,3,3,3,1,1,2,3,1,1,2,2,2,1,1,2,3,1,2} In[2]:= S1=Flatten[Position[A,1]] Out[2]= {6,7,10,11,15,16,19} But be careful, you may not use underscores in symbol names (like S_1)! Use S1 instead.