Mathematica用for循环计算数组中重复元素的数量并返回

我的 Mathematica作业

用for循环计算数组中重复元素的数量并返回

用for循环计算数组中重复元素的数量并返回

s = RandomInteger[{1, 10}, 20];
Timing [For [i = 1;
k = {}, i <= Length[s], i++,
If [Select [k, # == s[[i]] &] == {},
If [Length[Select[s, # == s[[i]] &]] >= 2,
AppendTo[k, s[[i]]];
Print[s[[i]], “,”, Length[Select[s, # == s[[i]] &]]]
]]]]

这样写有什么问题吗？还有更好的写法吗？求大神纠错。。。