🚀 go-pugleaf

zhuhail@vax.sbu.ac.uk wrote:
> I just want to know how difficult following problem is:
> put 8 queens in the chess board without attach each orther.
> How many solutions it may have.

Below are:

1) A FORTRAN program used to solve the problem.

2) The results.  Note that some of the 92 solutions will be 
   reflections/rotations of other solutions.

Best wishes,

Alan

---------------------------------------------------------------------------
C  This program will solve the 8 queens on a chessboard problem.
C  It must be compiled using recursive subroutine option.

      integer board(8),t(24),i
      common /comblk/ t
      do 1,i=1,8
            t(i)=0
            t(8+i)=2**i
            t(16+i)=0
            board(i)=0
1     continue
      call queen(board,1)
      end

      subroutine queen(board,n)
      integer n,board(8),board1(8),t(24),i,j
      common /comblk/ t
100   format ("A",i1," B",i1," C",i1," D",i1,
     +        " E",i1," F",i1," G",i1," H",i1)
      if (n.eq.9) then
         print 100,board
      else
         do 1,i=9,16
            if ((board(n).and.t(i)).eq.0) then
               do 2,j=1,n-1
                  board1(j)=board(j)
2              continue
               board1(n)=i-8
               do 3,j=1,8-n
                  board1(n+j)=board(n+j).or.t(i).or.t(i+j).or.t(i-j)
3              continue
               call queen(board1,n+1)
            endif
1        continue
      endif
      end
---------------------------------------------------------------------------
A1 B5 C8 D6 E3 F7 G2 H4
A1 B6 C8 D3 E7 F4 G2 H5
A1 B7 C4 D6 E8 F2 G5 H3
A1 B7 C5 D8 E2 F4 G6 H3
A2 B4 C6 D8 E3 F1 G7 H5
A2 B5 C7 D1 E3 F8 G6 H4
A2 B5 C7 D4 E1 F8 G6 H3
A2 B6 C1 D7 E4 F8 G3 H5
A2 B6 C8 D3 E1 F4 G7 H5
A2 B7 C3 D6 E8 F5 G1 H4
A2 B7 C5 D8 E1 F4 G6 H3
A2 B8 C6 D1 E3 F5 G7 H4
A3 B1 C7 D5 E8 F2 G4 H6
A3 B5 C2 D8 E1 F7 G4 H6
A3 B5 C2 D8 E6 F4 G7 H1
A3 B5 C7 D1 E4 F2 G8 H6
A3 B5 C8 D4 E1 F7 G2 H6
A3 B6 C2 D5 E8 F1 G7 H4
A3 B6 C2 D7 E1 F4 G8 H5
A3 B6 C2 D7 E5 F1 G8 H4
A3 B6 C4 D1 E8 F5 G7 H2
A3 B6 C4 D2 E8 F5 G7 H1
A3 B6 C8 D1 E4 F7 G5 H2
A3 B6 C8 D1 E5 F7 G2 H4
A3 B6 C8 D2 E4 F1 G7 H5
A3 B7 C2 D8 E5 F1 G4 H6
A3 B7 C2 D8 E6 F4 G1 H5
A3 B8 C4 D7 E1 F6 G2 H5
A4 B1 C5 D8 E2 F7 G3 H6
A4 B1 C5 D8 E6 F3 G7 H2
A4 B2 C5 D8 E6 F1 G3 H7
A4 B2 C7 D3 E6 F8 G1 H5
A4 B2 C7 D3 E6 F8 G5 H1
A4 B2 C7 D5 E1 F8 G6 H3
A4 B2 C8 D5 E7 F1 G3 H6
A4 B2 C8 D6 E1 F3 G5 H7
A4 B6 C1 D5 E2 F8 G3 H7
A4 B6 C8 D2 E7 F1 G3 H5
A4 B6 C8 D3 E1 F7 G5 H2
A4 B7 C1 D8 E5 F2 G6 H3
A4 B7 C3 D8 E2 F5 G1 H6
A4 B7 C5 D2 E6 F1 G3 H8
A4 B7 C5 D3 E1 F6 G8 H2
A4 B8 C1 D3 E6 F2 G7 H5
A4 B8 C1 D5 E7 F2 G6 H3
A4 B8 C5 D3 E1 F7 G2 H6
A5 B1 C4 D6 E8 F2 G7 H3
A5 B1 C8 D4 E2 F7 G3 H6
A5 B1 C8 D6 E3 F7 G2 H4
A5 B2 C4 D6 E8 F3 G1 H7
A5 B2 C4 D7 E3 F8 G6 H1
A5 B2 C6 D1 E7 F4 G8 H3
A5 B2 C8 D1 E4 F7 G3 H6
A5 B3 C1 D6 E8 F2 G4 H7
A5 B3 C1 D7 E2 F8 G6 H4
A5 B3 C8 D4 E7 F1 G6 H2
A5 B7 C1 D3 E8 F6 G4 H2
A5 B7 C1 D4 E2 F8 G6 H3
A5 B7 C2 D4 E8 F1 G3 H6
A5 B7 C2 D6 E3 F1 G4 H8
A5 B7 C2 D6 E3 F1 G8 H4
A5 B7 C4 D1 E3 F8 G6 H2
A5 B8 C4 D1 E3 F6 G2 H7
A5 B8 C4 D1 E7 F2 G6 H3
A6 B1 C5 D2 E8 F3 G7 H4
A6 B2 C7 D1 E3 F5 G8 H4
A6 B2 C7 D1 E4 F8 G5 H3
A6 B3 C1 D7 E5 F8 G2 H4
A6 B3 C1 D8 E4 F2 G7 H5
A6 B3 C1 D8 E5 F2 G4 H7
A6 B3 C5 D7 E1 F4 G2 H8
A6 B3 C5 D8 E1 F4 G2 H7
A6 B3 C7 D2 E4 F8 G1 H5
A6 B3 C7 D2 E8 F5 G1 H4
A6 B3 C7 D4 E1 F8 G2 H5
A6 B4 C1 D5 E8 F2 G7 H3
A6 B4 C2 D8 E5 F7 G1 H3
A6 B4 C7 D1 E3 F5 G2 H8
A6 B4 C7 D1 E8 F2 G5 H3
A6 B8 C2 D4 E1 F7 G5 H3
A7 B1 C3 D8 E6 F4 G2 H5
A7 B2 C4 D1 E8 F5 G3 H6
A7 B2 C6 D3 E1 F4 G8 H5
A7 B3 C1 D6 E8 F5 G2 H4
A7 B3 C8 D2 E5 F1 G6 H4
A7 B4 C2 D5 E8 F1 G3 H6
A7 B4 C2 D8 E6 F1 G3 H5
A7 B5 C3 D1 E6 F8 G2 H4
A8 B2 C4 D1 E7 F5 G3 H6
A8 B2 C5 D3 E1 F7 G4 H6
A8 B3 C1 D6 E2 F5 G7 H4
A8 B4 C1 D3 E6 F2 G7 H5
---------------------------------------------------------------------------