37,741
社区成员
发帖
与我相关
我的任务
分享use strict;
use warnings;
my %statistcs;
my @a=('a','a','b','c','c','c','d');
foreach my $item (@a)
{
$statistcs{$item}++;
}
foreach my $item (keys(%statistcs))
{
print("The number of item $item is $statistcs{$item}\n");
}
>>> s = ['a','a','b','c','c','c','d']
>>> for x in set(s):
print x, s.count(x)
a 2
c 3
b 1
d 1
>>> counter = {}
for ch in array:
counter.setdefault(ch,[]).append(1)
for ch, lst in counter.items():
print ch, sum(lst)ta=('a','a','b','c','c','c','d')
la=[]
lth=len(ta)
for i in range(lth):
la.append(ta[i])#转化为列表
la.sort()#使相同元素相邻
da={}#字典储存结果
i=0
while i<lth:
da[la[i]]=la.count(la[i])
i=i+da[la[i]]
print da