请教 怎样在一个数组中找出每个元素重复的次数呢？

peakgod

请教 怎样在一个数组中找出每个元素重复的次数呢？
最好是将每个元素和重复次数对应输出。
我想了很久了，请大家帮助一下吧，谢谢各位高手！

兰花仙子

1. perl -e '@arr=(1,2,3,3,4,2,3,5);$hash{$_}++ for @arr;print "$_ $hash{$_}\n" for (keys %hash)'

复制代码

peakgod

谢谢仙子了！
谢谢仙子乐于助人！

[ 本帖最后由 peakgod 于 2006-3-2 12:49 编辑 ]

POLOGG

这样的问题一天都有好几次，为什么不好好看看前面的帖子呢？

赛萌

回复 4# POLOGG


    说的对

小perl

Perl 6 版：

1. use v6;
   
2. 
   
3. # 怎样在一个数组中找出每个元素重复的次数呢？将每个元素和重复次数对应输出。
   
4. my @a = 1,2,6,6,6,6,9,9;
   
5. for @a.classify(*.Str).kv -> $k,$v {say "$k    | $v.elems()"}

复制代码

rubyish

回复 6# 小perl
beige yisi beiteer

1. my $b = bag @a;
   
2. say $b.fmt: "%s => %d";

复制代码

RE_HASH

很有兴趣知道5楼是怎么把这个帖子找出来的，10年了！

小perl

回复 7# rubyish


        bag 是干嘛的，很好用啊

sunzhiguolu

看下大神们的回帖, 也长经验值!!!