Re: Pattern Matching in Lists

*To*: mathgroup at smc.vnet.net*Subject*: [mg35554] Re: [mg35547] Pattern Matching in Lists*From*: Andrzej Kozlowski <andrzej at yhc.att.ne.jp>*Date*: Fri, 19 Jul 2002 06:07:54 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

One way: In[2]:= Tr[ReplaceList[{1,1,1,0,0,1,0,1,0,0,1,0,0},{___,1,0,___} -> 1]] Out[2]= 4 Andrzej Kozlowski Toyama International University JAPAN http://platon.c.u-tokyo.ac.jp/andrzej/ On Thursday, July 18, 2002, at 03:06 AM, Anthony Mendes wrote: > Hello, > > Suppose w={1,1,1,0,0,1,0,1,0,0,1,0,0}. > > How can I count the number of occurrences of a 1 in w immediately > followed by a 0 in w? > > I have tried every incarnation of Count[] I can think of; for example, > > Count[w,{___,1,0,___}] > > does not seem to work. In general, how can I count the number of > occurrences of a 1 followed by a 0 in a list of 1's and 0's? Thank you! > > > -- > Tony > _____________________ > amendes at math.ucsd.edu > > > > >