排列组合的递归实现

代码片断
1 全排列历遍（递归法）
使用方法

Combination(0,5,outputdata);// alldata[0]需要初始化成全排列所包括的元素，alldata[1]到alldata[5]是递归时的临时数据，无需处理。

代码

int alldata[6][6];
int outputdata[6];
void Combination(int level,int datalen,int *output)
}

2 组合历遍（递归法）
C++版本
使用

//inputdata需要初始化为组合所包括的元素，调用时需要指明所有元素个数（对于函数来说是可选的元素个数），单个组合包含的元素个数（对于函数来说是单次排列缺少的元素个数）
Permutation(inputdata,6,outputdata,3);

代码

void Permutation(int *data, int datalen, int * output, int num)
}

dephi版本
使用

var
  inputdata :array of Real;
  outputdata : array of Real;
  i : integer;
begin
  SetLength(inputdata,5);
  SetLength(outputdata,3);
  for i := 0 to 5 do
    inputdata[i] := i;
  Permutation(inputdata,0,outputdata,0);
end;

代码

procedure Permutation(var inputdata: array of Real;inputpos:integer;var outputdata:array of Real;outputpos:integer);
var
  I: Integer;
begin
  for I := 0 to High(inputdata) - inputpos - High(outputdata) + outputpos do
  begin
    outputdata[outputpos] := inputdata[inputpos+i];
    if(outputpos < High(outputdata) )then
      Permutation(inputdata,inputpos+1+I,outputdata,outputpos+1)
    else
      cb(outputdata);//处理函数
  end;
end;