搜索与回溯练习（三）

搜索算法_字符串的序号

AYYZOJ p1457

COGS p819

题意就是：把组成该字符串的所有字符，重新进行任意组合，然后把结果按字典序进行排列，找出原字符串所在的位置。这应该是用排列组合的思路进行解题，方法就是从第一位字符开始进行循环判断，根据他在所有字符中所处的位置，来判断排在他前面的字符串的数量。

var
  s:string;
  p:longint;
  a:array['a'..'z'] of integer;
  st:string;

  procedure Init;
  var c:char;
      i:integer;
  begin
     readln(s);
     for i:=1 to length(s) do
       begin
         c:=s[i];
         inc(a[c]);
       end;
  end;

  procedure DFS(d:integer);
  var c:char;
    begin
      if d>length(s) then
        begin
          inc(p);
          if s=st then
            begin
              writeln(p);
              halt;
            end;
        end else
      for c:='a' to 'z' do
        if a[c]>0 then
          begin
            dec(a[c]);
            st:=st+c;
            DFS(d+1);
            st:=copy(st,1,d-1);
            inc(a[c]);
          end;
    end;

  begin
    Init;
    DFS(1);
  end.

program p1457;
var
  i,l,n:longint;
  s,s1:string;
  a:array['a'..'z'] of longint;
procedure Search(k:longint);
var c:char;
begin
  for c:='a' to 'z' do
    if a[c]>0 then begin
                     dec(a[c]);
                     s1:=s1+c;
                      if k=l then begin
                                    inc(n);
                                    if s1=s then begin writeln(n); halt; end;
                                  end
                        else Search(k+1);
                     inc(a[c]);
                     delete(s1,k,1);
                   end;
end;
begin
assign(input,'stringnum.in');
reset(input);
assign(output,'stringnum.out');
rewrite(output);
  readln(s);
  fillchar(a,sizeof(a),0);
  l:=length(s);
  for i:=1 to l do inc(a[s[i]]);
  s1:='';
  Search(1);
end.

program cogs819;
var
s:string;
a:array['a'..'z']of integer;
i,ans:integer;
procedure dfs(len:integer;x:string);
var
i:char;
begin
if len=length(s) then
begin
inc(ans);
if x=s then begin
writeln(ans);halt;end;
exit;
end;
for i:='a' to 'z' do
   if a[i]>0 then begin
     dec(a[i]);
     dfs(len+1,x+i);
     inc(a[i]);   end;
end;
begin
assign(input,'stringnum.in');reset(input);
assign(output,'stringnum.out');rewrite(output);
readln(s);
fillchar(a,sizeof(a),0);
for i:=1 to length(s) do inc(a[s[i]]);
dfs(0,'');
close(input);close(output);
end.

其实简单的搜索题写出来思想都一样，结构写出来一模一样。

这么简单的题对于初学搜索的我，还是交了3遍：

第一次是因为我把所有排列顺序都求了出来再一一比对，耗时不少

第二次是因为删去全部求出后，忘记在求得答案时加个halt。

写的时候还担心数据范围（integer）不够，囧。。