Re: HELP: How to do count to the SUB-LIST

*To*: mathgroup at smc.vnet.net*Subject*: [mg82166] Re: HELP: How to do count to the SUB-LIST*From*: Bill Rowe <readnewsciv at sbcglobal.net>*Date*: Sat, 13 Oct 2007 04:02:43 -0400 (EDT)

On 10/12/07 at 2:51 AM, wangzhen0829 at gmail.com (zhen) wrote: >I am new to Mathematica, and I get one problem now, hope to get some >help here >I got a list like this: >{{0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 1, 0, 0, 0}, {0, >0, 0, 0, 1, 1, 0, 0, 2, 0}, {1, 0, 1, 0, 0, 1, 0, 1, 0, 0}, {1, 3, >3, 4, 2, 2, 5, 3, 2, 1}, {7, 2, 2, 3, 4, 4, 0, 3, 1, 3}} >I need to get a list to show the number of non zero number in each >sub list, as to say, I need to get a list like this: >{0,3,3,4,10,9} Here are a few different ways: =46irst, noting all of the non-zero values are positive In[10]:= Plus @@@ Sign[data] Out[10]= {0,3,3,4,10,9} or In[11]:= Total[Transpose@Sign@data] Out[11]= {0,3,3,4,10,9} or if there were arbitrary items other than 0 In[12]:= Length[DeleteCases[#, 0]] & /@ data Out[12]= {0,3,3,4,10,9} -- To reply via email subtract one hundred and four