Tyvj-Begin P1036 Begin2 - Unit1 - 数独验证

http://begin.tyvj.cn:8080/Problem_Show.asp?id=1036

背景 Background

XX学校风靡一款智力游戏，也就是数独（九宫格），先给你一个数独，并需要你验证是否符合规则。

描述 Description

具体规则如下:
每一行都用到1,2,3,4,5,6,7,8,9，位置不限，
每一列都用到1,2,3,4,5,6,7,8,9，位置不限，
每3×3的格子（共九个这样的格子）都用到1,2,3,4,5,6,7,8,9，位置不限，
游戏的过程就是用1,2,3,4,5,6,7,8,9填充空白，并要求满足每行、每列、每个九宫格都用到1,2,3,4,5,6,7,8,9。
如下是一个正确的数独:
5 8 1 4 9 3 7 6 2
9 6 3 7 1 2 5 8 4
2 7 4 8 6 5 9 3 1
1 2 9 5 4 6 3 7 8
4 3 6 1 8 7 2 9 5
7 5 8 3 2 9 1 4 6
8 9 2 6 7 1 4 5 3
6 1 5 9 3 4 8 2 7
3 4 7 2 5 8 6 1 9

 

输入格式 Input Format

输入n个数独，你来验证它是否违反规则.
第一行为数独个数，第二行开始为第一个数独，之后为第二个，至第n个.
注意！每个数独之间有一个回车隔开!

输出格式 Output Format

若正确则输出”Right”若不正确则输出”Wrong” 输出一个换一行

 

样例输入 Sample Input

2
5 8 1 4 9 3 7 6 2
9 6 3 7 1 2 5 8 4
2 7 4 8 6 5 9 3 1
1 2 9 5 4 6 3 7 8
4 3 6 1 8 7 2 9 5
7 5 8 3 2 9 1 4 6
8 9 2 6 7 1 4 5 3
6 1 5 9 3 4 8 2 7
3 4 7 2 5 8 6 1 9

1 2 3 4 5 6 7 8 9
2 3 4 5 6 7 8 9 1
3 4 5 6 7 8 9 1 2
4 5 6 7 8 9 1 2 3
5 6 7 8 9 1 2 3 4
6 7 8 9 1 2 3 4 5
7 8 9 1 2 3 4 5 6
8 9 1 2 3 4 5 6 7
9 1 2 3 4 5 6 7 8

 

样例输出 Sample Output

Right

Wrong

时间限制 Time Limitation

各个测试点1s

注释 Hint

1<=n<=20 （输入的数独个数）
不论输入的数独是错误的还是正确的,数据都保证每个数在1-9之间,即只会出现因为有相同的数而导致违反规则,而不会因为数字超出了1-9的范围而违反规则.

 

 

NC了一把，第一次横竖直接扔一起判断了，不过数据倒是很给面子，就错了一个点，要是考试时不爽翻了，思路错了一块还能AC9个点，盯着代码2分钟后检查出来错误最后一点AC。。

 

program p1036;
 type
  sd = array[1..9,1..9]of byte;
 var
  rh:array[1..20]of boolean;
  a:sd;
  n,i,k,j:integer;
 function judgehs(z:sd):boolean;
  var
   p:array[1..9]of boolean;
   t,o,b:integer;
  begin
   judgehs:=true;
   for t := 1 to 9 do
    begin
     for b := 1 to 9 do p[b]:=false;
     for o := 1 to 9 do
      p[z[t,o]]:=true;
     for b := 1 to 9 do if not(p[b]) then exit(false);
    end;
  end;
 function judgejg(w:sd):boolean;
  var
   q:array[1..9]of boolean;
   e:array[1..3]of integer;
   x,y,r,s,u,v:integer;
  begin
   judgejg:=true;
   e[1]:=1;e[2]:=4;e[3]:=7;
   for r := 1 to 3 do
    begin
     v:=e[r];
     for s := 1 to 3 do
      begin
       u:=e[s];
       for x := 1 to 9 do q[x]:=false;
       for x := v to v+2 do
        for y := u to u+2 do
         q[w[x,y]]:=true;
       for x := 1 to 9 do if not(q[x]) then exit(false);
      end;
    end;
  end;
 begin
  readln (n);
  for k := 1 to n do
   begin
    for i := 1 to 9 do
     for j := 1 to 9 do
      read (a[i,j]);
    if k < n then readln;
    if judgehs (a) then
     begin
      if judgejg(a) then rh[k]:=true else rh[k]:=false;
     end else rh[k]:=false;
   end;
  for k := 1 to n do
   if rh[k] then writeln ('Right') else writeln ('Wrong');
 end.