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
>
>
>
>
>