SSL JudgeOnline 1357——有重复元素的全排列
Description
输入n(<=10)个小些字母(可能重复),输出n个字符的全部排列。
Input
abaab
Output
1:aaabb
2:aabab
3:aabba
4:abaab
5:ababa
6:abbaa
7:baaab
8:baaba
9:babaa
10:bbaaa
水题!
这题先读入一个x,将所含的每一个字符在数组a(用来记录每一个字母的出现的个数)的对应位置+1。
在搜索中,我们可以先判断是不是符合单词的长度,符合就输出(Tip:注意不要忘记输出序列)。
然后,我们用for i:=’a’ t ‘z’ do 来判断每一种情况,但是这个字符要符合a[i]>0 才可以递归,递归中要将a[i]-1(Tip:不要忘记回溯)。
代码如下:
var x:string;
a:array['a'..'z']of longint;
b:array[1..10]of char;
total:longint;
procedure init;
var i:longint;
begin
readln(x);
for i:=1 to length(x) do inc(a[x[i]]);
end;
procedure print;
var i:longint;
begin
inc(total);
write(total,':');
for i:=1 to length(x) do write(b[i]);
writeln;
end;
procedure main(dep:longint);
var i:char;
begin
if dep>length(x) then
begin
print;
exit;
end;
for i:='a' to 'z' do
if a[i]>0 then
begin
dec(a[i]);
b[dep]:=i;
main(dep+1);
inc(a[i]);
end;
end;
begin
init;
main(1);
end.