8 ферзей. Основные расстановки.

[boomeer]

Как известно для 8 ферзей на доске 8х8 существует 92 различных случая.
Но они получаются путем отображений, поворотов...
Всего основных расстановок должно быть 12.
Что я не учел? у меня 24 выходит...

uses crt;
var
m:array [1..8] of integer;
q:array [0..100,1..8] of integer;
p:integer;
function test(l,i:integer):boolean;
var
 j:integer;
begin
  test:=true;
  for j:=1 to l-1 do
   if (i=m[j]) or (m[j]+j=i+l) or (m[j]-j=i-l) then begin
     test:=false;  exit
   end;
end;

procedure svp(var a,b:integer);
var c:integer;
begin
c:=a;
a:=b;
b:=c;
end;

function tst: boolean;
var
s:boolean;
i,j:integer;
mm:array [1..8] of integer ;
begin
 tst:=false;
 for i:=1 to 8 do mm[i]:=m[i];
 for i:=1 to 4 do svp(mm[i],mm[9-i]);

 for i:=0 to p-1 do begin
   s:=true;
   for j:=1 to 8 do s:=s and (mm[j]=q[i,j]);
   if s then exit;
  end;

 for i:=1 to 8 do mm[i]:=9-mm[i];
 for i:=0 to p-1 do begin
   s:=true;
   for j:=1 to 8 do s:=s and (mm[j]=q[i,j]);
   if s then exit;
  end;

 for i:=1 to 8 do mm[i]:=m[i];
 for i:=1 to 8 do mm[i]:=9-mm[i];

 for i:=0 to p-1 do begin
   s:=true;
   for j:=1 to 8 do s:=s and (mm[j]=q[i,j]);
   if s then exit;
  end;
  
  tst:=true;
end;


procedure qn(l:integer);
 var i:integer;
begin
 if l>8 then begin

  if tst then begin
  for i:=1 to 8 do q[p,i]:=m[i];
  inc(p)
  end;
 end
 else
 for i:=1 to 8 do
 begin
  if test(l,i) then begin
   m[l]:=i;
   qn(l+1);
  end;
 end;
end;
var i,j:integer;
begin
p:=0;
clrscr;
qn(1);

for i:=0 to p-1 do begin
 for j:=1 to 8 do write(q[i,j]);
 writeln;
end;
writeln(p);
readln;
end.

[evg_m]

Но они получаются путем отображений, поворотов...

две осевые симметрии + три поворота = ПЯТЬ проверок
У вас я нашел только три.
Назовите (себе) какие Вы сделали и легко узнаете что осталось сделать.