旅行 (Standard IO)

Description

X先生来到了一个奇怪的国家旅行。这个国家有N个城市，每个城市均有且仅有一个机场，但是这机场所有航班只飞往一个城市。每个城市有一个游览价值，第i个城市的游览价值为A[i]。
现在他想知道，从第i个城市出发，并只坐飞机飞往下一个城市，游览价值之和最多是多少（一个城市游览多次只计算1次游览价值）

Input

输入文件travel.in的第1行为一个正整数N。
第2行有N个非负整数A[i]，表示了每个城市的游览价值。
第3行有N个正整数F[i]，表示第i个城市的航班飞往的城市为F[i]，可能出现F[i] = i的情况。

Output

输出文件travel.out包括N行，第i行包含一个非负整数，表示从第i个城市出发游览价值之和的最大值为多少。

题解
看到s<100000，就是不过6位数，暴力啊。
预处理出s所能变成的数，记录在桶排里，然后直接输出。

代码

var
 f,d:array[0..100001] of longint;
 m,n,s,ta,he,x,len:longint;
 ss:string;

procedure try1;
var
  i,j,num:longint;
  st,newst:string;
begin
  str(x,st);
  for i:=1 to length(st) do
    for j:=i+1 to length(st) do
      if i<>j then
        begin
          newst:=copy(st,1,i-1)+st[j]+copy(st,i+1,j-i-1)+st[i]+copy(st,j+1,length(st));
          val(newst,num);
          if newst='' then exit;
          if (f[num]=-1) then
            begin
              f[num]:=f[x]+1;
              inc(ta); d[ta]:=num;
            end;
        end;
end;

procedure try2;
var
  i,j,num:longint;
  st,newst:string;
begin
  if length(st)=1 then exit;
  str(x,st);
  for i:=1 to length(st) do
    begin
      newst:=copy(st,1,i-1)+copy(st,i+1,length(st));
      val(newst,num);
      if newst='' then exit;
      if (f[num]=-1) then
        begin
          f[num]:=f[x]+1;
         inc(ta); d[ta]:=num;
        end;
    end;
end;

procedure try3;
var
  i,j,num,aa,bb:longint;
  st,newst,l:string;
begin
  str(x,st);
  if length(st)>=len then exit;
  if length(st)=1 then exit;
  for i:=1 to length(st)-1 do
    begin
      val(st[i],aa); val(st[i+1],bb);
      for j:=aa+1 to bb-1 do
        begin
          str(j,l);
          newst:=copy(st,1,i)+l+copy(st,i+1,length(st));
          if newst='' then exit;
          val(newst,num);
          if (f[num]=-1) then
            begin
              f[num]:=f[x]+1;
              inc(ta);
              d[ta]:=num;
            end;
        end;
    end;
end;

procedure init;
var
  i:longint;
begin
  readln(s);
  str(s,ss);
  len:=length(ss);
  fillchar(f,sizeof(f),255);
  f[s]:=0;
  ta:=1; he:=0;
  d[1]:=s;
  while he<ta do
    begin
      inc(he); x:=d[he];
      try1;
      try2;
      try3;
    end;
  readln(n);
  for i:=1 to n do
    begin
      readln(n);
      writeln(f[n]);
    end;
end;

begin
  init;
end.