搜索与回溯5.2——排列

SSL 1302
题目说明
设有n个整数的集合｛1，2，3，…，n｝，从中任意选取r个数进行排列，列出所有排列。
程序如下：
var
n,r:longint;
a,b:array[1..10000]of longint;
procedure print;
var
i:longint;
begin
for i:=1 to r do
write(a[i],’ ‘);
writeln;
end;

procedure search(k:longint);
var
i:longint;
begin
if k>r then print
else
for i:=1 to n do
if (a[k]<>i)and(b[i]=0) then
begin
a[k]:=i;
b[i]:=1;
search(k+1);
b[i]:=0;
a[k]:=0;
end;
end;

begin
readln(n,r);
search(1);
end.

很水的一题，只要判断在该位上有没有使用过以及在整个排列中有没有使用过就行了。搜索解题。
（@SSL_ZZY 这位仁兄的也不错）