洛谷 P1101 单词方阵

题目

给一nXn的字母方阵，内可能蕴含多个“yizhong”单词。单词在方阵中是沿着同一方向连续摆放的。摆放可沿着8个方向的任一方向，同一单词摆放时不再改变方向，单词与单词之间[color=red]可以[/color]交叉,因此有可能共用字母。输出时，将不是单词的字母用“*”代替，以突出显示单词。例如：

输入：
8 输出：
qyizhong *yizhong
gydthkjy gy******
nwidghji n*i*****
orbzsfgz o**z****
hhgrhwth h***h***
zzzzzozo z****o**
iwdfrgng i*****n*
yyyygggg y******g

题解

直接深搜
时间复杂度

$$O(7n^2)$$

代码

const
  ss:string='yizhong';
  dx:array[1..8]of integer=(-1,-1,0,1,1,1,0,-1);
  dy:array[1..8]of integer=(0,1,1,1,0,-1,-1,-1);
var
  n,i,j,k:longint;
  a:array[-1..101,-1..101]of char;
  b:array[-1..101,-1..101]of integer;

procedure dfs(i,j,t,s:longint);
var
  k,c,d:longint;
begin
  if s=7 then begin
    c:=i;d:=j;
    for k:=1 to 7 do
      begin
        b[c,d]:=1;
        c:=c-dx[t];d:=d-dy[t];
      end;
    end;
  if a[i+dx[t],j+dy[t]]=ss[s+1] then dfs(i+dx[t],j+dy[t],t,s+1);
end;

begin
  readln(n);
  for i:=1 to n do
    begin
    for j:=1 to n do
      read(a[i,j]);
      readln;
    end;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]='y' then
        for k:=1 to 8 do
          if a[i+dx[k],j+dy[k]]='i' then dfs(i+dx[k],j+dy[k],k,2);
  for i:=1 to n do
    begin
    for j:=1 to n do
      if b[i,j]=1 then write(a[i,j]) else write('*');
      writeln;
    end;
end.