codeves天梯 Jam记数法

Jam是个喜欢标新立异的科学怪人。他不使用阿拉伯数字计数，而是使用小写英文字母计数，他觉得这样做，会使世界更加丰富多彩。在他的计数法中，每个数字的位数都是相同的（使用相同个数的字母），英文字母按原先的顺序，排在前面的字母小于排在它后面的字母。我们把这样的“数字”称为Jam数字。在Jam数字中，每个字母互不相同，而且从左到右是严格递增的。每次，Jam还指定使用字母的范围，例如，从2到10，表示只能使用{b,c,d,e,f,g,h,i,j}这些字母。如果再规定位数为5，那么，紧接在Jam数字“bdfij”之后的数字应该是“bdghi”。（如果我们用U、V依次表示Jam数字“bdfij”与“bdghi”，则U<V< span>，且不存在Jam数字P，使U<P<V< span>）。你的任务是：对于从文件读入的一个Jam数字，按顺序输出紧接在后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。

分析：这题原本的解法是dfs，但数据实在太水，就直接有上一个单词直接往下推，时间复杂度也比dfs更优。

const
  maxn=30;

var
  s,t,w,i:integer;
  a:array[1..30] of char;

procedure init;
var
  i:integer;
begin
  readln(s,t,w);
  for i:=1 to w do
    read(a[i]);
end;

procedure print;
var
  i:integer;
begin
  for i:=1 to w do
    write(a[i]);
  writeln;
end;

procedure main;
var
  i,j,k:integer;
begin
  if a[w]<>chr(t+97-1) then
    j:=w
  else
    begin
      j:=w;
      while (j>0) and (a[j]=chr(t-(w-j)+97-1)) do
        dec(j);
      if j=0 then exit;
    end;
  a[j]:=chr(ord(a[j])+1);
  for i:=j+1 to w do
    a[i]:=chr(ord(a[i-1])+1);
  print;
end;

begin
  init;
  for i:=1 to 5 do
    main;
end.