{
int i,num=0;
for(i=0;i<n;i++)
if(a[i]==x) num++;
return num;
}原表中重复项比较多的时候,aeo的函数效率非常高如果重复项少,可排序后再合并,或者试试下面这个PHP代码:
[拷贝到剪切板](DEFUN
count1
(lst
/
tmplst
tmp)
(setq
tmplst
nil)
(FOREACH
item
lst
(IF
(AND
tmplst
(setq
tmp
(assoc
item
tmplst)))
(SETQ
tmplst
(SUBST
(LIST
item
(1+
(CADR
tmp)))
tmp
tmplst))
(SETQ
tmplst
(cons
(LIST
item
1)
tmplst))
)
)
tmplst
)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)