Any better way for finding frequencies of list entries?
- To: mathgroup at smc.vnet.net
- Subject: [mg26923] Any better way for finding frequencies of list entries?
- From: Domi <doud25 at caramail.com>
- Date: Fri, 26 Jan 2001 23:30:01 -0500 (EST)
- Organization: Wanadoo, l'internet avec France Telecom
- Sender: owner-wri-mathgroup at wolfram.com
Hello Mathematica experts out there,
I want to determine the frequencies of the entries in a list of integers
For example, the following piece of code seems to work with Pi:
pi = Join
[ {3}, ToExpression[Characters[StringDrop[ToString[N[Pi, 57]], {1,
2}]]]]
Table[{i, Count[pi, i]}, {i, 0, 9}]
{{0, 3}, {1, 5}, {2, 6}, {3, 9}, {4, 4}, {5, 6}, {6, 4}, {7, 5},
{8, 6}, {9, 9}}
Question: Is there a more elegant way to do that?
Regards from Domi.