100高分求一组合函数或算法,最好是JS的.DELPHI或其他语言也可.
发布网友
发布时间：2022-05-15 22:01
共2个回答
热心网友
时间：2022-05-15 23:30
function Combination(source :string; len :Integer):string;
var
rsl,sl,tsl :TStringList;
i :Integer;
s,t :string;
begin
sl := TStringList.Create;
rsl := TStringList.Create;
try
while source[1] = ',' do
source := Copy(source, 2, Length(source) - 1);
while source[Length(source)] = ',' do
source := Copy(source, 1, Length(source) - 1);
sl.Delimiter := ',';
sl.DelimitedText := source;
if sl.Count < len then
begin
Result := '原数据长度小于组合个数' + #13 + '原数据分隔符只能为英文输入法的逗号","';
Exit;
end;
if len = 1 then
begin
for i := 0 to sl.Count - 1 do
Result := Result + sl.Strings[i] + '|';
end
else
begin
while sl.Count >= len do
begin
tsl := TStringList.Create;
try
tsl.Assign(sl);
while tsl.Count >= len do
begin
t := '';
s := '';
for i := 0 to len - 2 do
t := t + tsl.Strings[i] + ',';
for i := len - 1 to tsl.Count - 1 do
s := s + t + tsl.Strings[i] + '|';
rsl.Add(s);
if len > 2 then
tsl.Delete(1)
else
tsl.Clear;
end;
finally
FreeAndNil(tsl);
end;
sl.Delete(0);
end;
Result := rsl.Text;
end;
finally
FreeAndNil(rsl);
FreeAndNil(sl);
end;
end;
//调用
ShowMessage(Combination('1,2,3,4,5,6,7', 2));
ShowMessage(Combination('1,2,3,4,5', 3));
ShowMessage(Combination('1,2,3,4,5', 4));
热心网友
时间：2022-05-16 00:48
提供下这个算法的方案
就是 m选n 的组合了
首先 定义一个 m的 一维数组 前n 个为 1 后面的为0
比如 楼主的 5选3
则 构造的这个数组 为
1 1 1 0 0
这是第一个组合可能 取当前数组为1的地方对应的原始数组中值得到 123
然后这个数组基础上面 遍历一遍 两个规则
1、碰到 第一个 10变成01
2、在变化之前，将变化位置之前的所有的1移动到最前面
直到最后没有碰到10为止
如下：
11 10 0 ->123
11 01 0 -> 124 第二个
1 10 10
1 01 10 ->134
10 110
01 110 ->234
011 10
110 01 -> 125 （注意第二条规则 前面要移动）
10101 ->135
01101 ->235
10011->145
01011->245
00111->345 结束！
5选3的组合 应该是 4*5/2=10 个 貌似楼主的少了一个 对一下，我刚以为我推算错了
封装个函数，想几选几都可以的。
GetResult(s,n)
{
m=s.length();
sc=new int[m]{0};
for(int i=0;i<n;i++) //前n个为1
{
sc[i]=1;
}
//.............后面的自己写了 就是来个if sc[j]=1 sc[j+1]=0 然后改变下数组 改变完了再遍历一遍从源中取数字出来就是一个组合了
}
