求一算法，

sharmy1220

UID: 29675
帖子: 187
积分: 430
在线时间: 1 天 23 小时

1^# sharmy1220 发表于 2007-11-21 13:52

求一算法，

perl 里面
$temp = "a_c_d_中_e_中_f_f_中_f_j_中_a_c_中_d_e_中_f_a_f_e_c_a_d_a_a";（_）只是个分隔符。
这个字符串里面通过什么样的办法，我想要实现对temp的字符进行统计出现的次数同时进行排序最多次的放在前面，最少次数的放在后面
如何实现？谢谢各位。

sharmy1220

UID: 29675
帖子: 187
积分: 430
在线时间: 1 天 23 小时

2^# sharmy1220 发表于 2007-11-21 14:26

怎么就没有人回呢？

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

3^# Lonki 发表于 2007-11-21 19:56

用hash转储一次, 排序时sort

topd

UID: 7613
帖子: 1
积分: 2
在线时间: 10 分钟

4^# topd 发表于 2007-11-22 10:54

非perl 版本 tr "_" "\n" | sort | uniq -c | sort

cfk

UID: 22394
帖子: 1
积分: 2
在线时间: 10 分钟

5^# cfk 发表于 2007-11-22 12:09

my $temp = "a_c_e_g_d_e_f_g";
my %h;

foreach (split(/_/, $temp))
{
$h{$_}--;
}

foreach (sort {$h{$a} <=> $h{$b}} (keys %h))
{
print "$_: ", -$h{$_}, "\n";
}

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

6^# Lonki 发表于 2007-11-22 12:10

QUOTE:

原帖由 topd 于 2007-11-22 10:54 发表
非perl 版本 tr "_" "\n" | sort | uniq -c | sort

1. 不清楚sort对中文的支持如何... 还是只要locale是utf8就行?
2. 最后一个sort应该sort -nr

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

7^# perljoker 发表于 2007-11-22 12:22

啊……为什么喜欢用减号……
逆向思维高手？

cfk

UID: 22394
帖子: 1
积分: 2
在线时间: 10 分钟

8^# cfk 发表于 2007-11-22 12:25

QUOTE:

原帖由 perljoker 于 2007-11-22 12:22 发表
啊……为什么喜欢用减号……

话说逆向排序比较麻烦 ...

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

9^# perljoker 发表于 2007-11-22 12:33

QUOTE:

原帖由 cfk 于 2007-11-22 12:25 发表

话说逆向排序比较麻烦 ...

不是说sort{$b<=>$a}@array就逆序么……

cfk

UID: 22394
帖子: 1
积分: 2
在线时间: 10 分钟

10^# cfk 发表于 2007-11-22 12:40

QUOTE:

原帖由 perljoker 于 2007-11-22 12:33 发表

不是说sort{$b$a}@array就逆序么……

恩，要明白，有人就是比较笨啊 ...