8.14 lcs 2691

题目

FBI事件后，北斗星司在一个荒山野岭遇到了两个安培拉星人的谈话，由于北斗星司也是外星人，所以他听懂了谈话的内容- -
安培拉星人A说：1234567
安培拉星人B说：了解，我将回去报告长官
显然，安培拉星人A说的是一串密码，且我们已知安培拉星通用一种加密方式，即在一个仅含有数字1-9（且每个数字最多出现一次）的数字N中，将N中的每一位重新排列（可以将N里的所有位全部重新排列，也可以只重新排列几位，或者不重新排列），使得排列后的新数字M是数字P～Q的公倍数，那么M就是N所隐藏的密码

两行，第一行一个数字N（N的长度..不用我说了吧？）第二行两个数P、Q（1<=P<=Q<=20）

一个或多个M，表示排列以后的新数字（M必定为数字P～Q的公倍数），若无答案则输出‘No answer’（引号不输出），若多解则从小到大输出

题解

我决定用全排列，然后每个答案判断一下，符合答案的就输出。

$$时间复杂度O(n^n*(q-p))$$

代码

var
  p,q,i,j,n:longint;
  s:string;
  a:array[1..9]of longint;

procedure print(t:string);
var
  k,i:longint;
begin
  val(t,k);
  for i:=p to q do
    if k mod i<>0 then exit;
  writeln(k);j:=1;
end;

procedure dfs(k:longint;t:string);
var
  i,j:longint;
begin
  if k>=n then begin print(t);exit;end;
  for i:=1 to 9 do
    if a[i]=1 then
      begin
        a[i]:=0;
        dfs(k+1,t+chr(i+48));
        a[i]:=1;
      end;
end;

begin
  assign(input,'lcs.in');
  assign(output,'lcs.out');
  reset(input);rewrite(output);
  readln(s);
  readln(p,q);
  n:=length(s);
  for i:=1 to n do
    a[ord(s[i])-48]:=1;
  dfs(0,'');
  if j=0 then writeln('No answer');
  close(input);close(output);
end.