算法题哦

teebye

题来啦，题来啦，




如何判断一个字符串里面是否有字符占了一半或以上？

看谁实现的聪明  


好吧好吧，外星人是未知的，所以题目现在改成这样了

统计一个字符串里面出现次数最多的字符

[ 本帖最后由 teebye 于 2009-3-18 15:54 编辑 ]

teebye

实现的不够聪明

teebye

原帖由 zhenglxd 于 2009-3-18 14:25 发表

不明白聪明的涵义是什么

字符窜又不是数字
又不能用于数学运算
哪来的算法

而且字符窜 包含的范围太大了，什么方法叫 聪明？

我以为，聪明就是要用外星人的思维方式去思考

teebye

原帖由 hitsubunnu 于 2009-3-19 10:29 发表



use List::Util qw(max);

my $str = 'hellooloooooo';
my (%h,%f);

$f{++$h{$_}}=$_ for split //,$str;

print $f{max keys %f};

看不懂perl的，不妨看看ruby怎么实现的

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;def count(a) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result =[] &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;a.uniq.each do|x| &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result << [x,a.grep(x).length] &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;result.max { |a, b| a[1]<=>b[1] } &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s = "aadddeegggggg" str = s.scan(/w{1}/) p count(str)