100高分求一组合函数或算法,最好是JS的.DELPHI或其他语言也可.输入参数:全部是个位数一串数字或数组(含义,需要组合的数字,比如1,2,3,4,5,6,7)一个数字(含义:组合数字的个数,比如2)

Question

100高分求一组合函数或算法,最好是JS的.DELPHI或其他语言也可.
输入参数:全部是个位数 一串数字或数组(含义,需要组合的数字,比如 1,2,3,4,5,6,7 ) 一个数字(含义:组合数字的个数,比如 2)
需要显示 (结果分行不分行也可,)
1,2|1,3|1,4|1,5|1,6|1,7|
2,3|2,4|2,5|2,6|2,7|
3,4|3,5|3,6|3,7|
4,5|4,6|4,7|
5,6|5,7|
6,7|
又比如, 数字或数组是 1,2,3,4,5 组合数字的个数是 3
那么必须显示
1,2,3|1,2,4|1,2,5|
1,3,4|1,3,5|
1,4,5|
2,3,4|2,3,5|
3,4,5| (结果分行不分行也可,)
关键是两个参数都可变的.两个参数的数字都用个位数字就可以了.
看来还是不行啊.如果我后面的参数是4或者5或者6或者7或者8呢?是不是要写1堆子函数?有没有一步到位的方法呢?

Answer 1

//Delphi:function Combination(source :string; len :Integer):string;varrsl,sl,tsl :TStringList;i :Integer;s,t :string;beginsl := TStringList.Create;rsl := TStringList.Create;trywhile source[1] = ',' do...