CrLf

借 3 楼代码一用

@if (0)==(0) echo off
cscript //nologo //e:jscript "%~f0" < %0 & pause & exit
@end

var s = WScript.StdIn.ReadAll();
s = s.match(/[^\r\n]/g).sort().join('');
var re = /(.)(\1)*/g, n = 0, ar = [];
s.replace(re,function($0,$1){
	n++;
	ar.length = ar.length > $0.length ? ar.length : $0.length;
	ar[$0.length-1] ? ar[$0.length-1].push($1) : ar[$0.length-1]=[$1];
})
WScript.Echo('最多: ' + ar.pop().join('\r\n') + '\n个数: ' + n);
复制代码

CrLf

回复 6# 依山居


powershell：

$s = 'A Counter is a dict subclass for counting hashable objects. It is an unordered collection where elements are stored as dictionary keys and their counts are stored as dictionary values. Counts are allowed to be any integer value including zero or negative counts. The Counter class is similar to bags or multisets in other languages.'

[char[]]$s | group-object | sort-object -desc count|select-object -first 5
复制代码

极限压缩后的代码长度和你差不多：

([char[]]$s|group|sort *)[-1..-5]
复制代码

CrLf

回复 9# 依山居


    done

CrLf

回复 11# 依山居


    所以把技能点用光了