求N个不连续自然数的所有排列

[wolfox]

求N个不连续自然数的所有排列，将其打印出来

[bjay]

N个不连续自然数的所有排列与从1到N的所有自然数排列有区别吗？
这个问题已经有许多人回答的。

[zhoukun666]

组合问题把1---下面有一例子！
http://www.csdn.net/expert/topic/910/910918.xml?temp=.4496118

[FARKY]

N个元素的全排列算法还用贴吗?哪本算法书上没有？

[wolfox]

哦，大家都知道了？那更要不吝赐教了。

[zzwu]

wolfox (狼狐):

确实，n个不连续自然数D1,D2,..Dn的所有排列，与1,2,..n这n个自然数的排列在方法上没有本质区别。因为二者可以1-1对应的，即由1到n的一个排列i1,i2,..in，立刻可以得到D1,D2,..Dn的一个排列Di1,Di2,..Din，也就是把i1,i2,..in作为D1,D2,..Dn 的足标,而形成的排列； 反之,由D1,D2,..Dn的排列Di1,Di2,..Din，也唯一对应着1到n的一个排列i1,i2,..in.

前面zhoukun666()引用的例子我去看了一下，它实际不是求排列的，而是求组合的一个算法。所以下面我编了一个对n个不连续自然数D1,D2,..Dn的所有排列程序，供你参考。程序还用3,6,9三个数作为例子来试验，结果能打印369,936等六个排列。程序用pascal编写，因为容易看些。


const n=3;
type iarr=array[1..n] of integer;

procedure permantate(date:iarr; n:integer);
var p,q,r,k,i:integer;
a,d,e:array[1..3] of integer;
procedure doprint;
var i:integer;
begin
for i:=1 to 3 do
write(date[a[i]]:3);
writeln
end;

label sw;
begin
for i:=1 to 3 do
begin
a[i]:=i; d[i]:=i; e[i]:=-1
end;
sw:
q:=0;
doprint;
for k:=n downto 2 do
begin
p:=d[k]+e[k]; d[k]:=p;
if p=k then e[k]:=-1 else
if p=0 then
begin
e[k]:=1; q:=q+1
end
else
begin
p:=p+q; r:=a[p];
a[p]:=a[p+1]; a[p+1]:=r;
goto sw
end
end;
end;

{main}
const data:array[1..n] of integer=(3,6,9);
var a:iarr;
i:integer;
begin
for i:=1 to n do a[i]:=data[i];
permantate(a,n);
readln;
end.

[byyter]

把n个元素放入数组list[],
用C++描述如下：
template<class T>
void Perm(T list[],int k,int m)
{
int i;
if(k==m){
for(i=0;i<=m;i++)
cout<<list[i];
cout<<endl;
}
else
{
for(i=k;i<=m;i++)
{
Swap(list[k],list[i]);
Perm(list,k+1,m);
Swap(list[k],list[i]);
}
}

template<class T>
inline void Swap(T&a,T&b)
{
T temp=a;a=b;b=temp;
}

[wolfox]

xiexie

[shine0123]

我已经把最好的算法发给你了，去邮箱看吧