Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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

• To: mathgroup at smc.vnet.net
• Subject: [mg82130] Re: [mg82096] HELP: How to do count to the SUB-LIST
• From: Sseziwa Mukasa <mukasa at jeol.com>
• Date: Sat, 13 Oct 2007 03:44:11 -0400 (EDT)
• References: <200710120651.CAA04299@smc.vnet.net>

On Oct 12, 2007, at 2:51 AM, zhen wrote:

> Hallo, everyone
>
> 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}

Use Length, Count and Map (see Help for more information) eg:

In[1]:= Length[#] - Count[#, 0] & /@ {{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}}
Out[1]= {0, 3, 3, 4, 10, 9}

Regards,

Ssezi

• References:
  • HELP: How to do count to the SUB-LIST
    • From: zhen <wangzhen0829@gmail.com>