v8for

v8.for

FORTRAN dilinde

c yet another 8 queens program...

implicit integer*2 (a-z)

Dimension m(8)

data m/8*1/

n=0

i=1

1 im1=i-1

if(i.lt.2) goto 3

do 2 d=1,im1

j=i-d

if(m(i).eq.m(j)) goto 4

if(m(i).eq.m(j)-d) goto 4

if(m(i).eq.m(j)+d) goto 4

2 continue

3 i=i+1

if(i.lt.9) goto 1

n=n+1

write(*,100) n,m

100 format(i4,': a',I1,' b',i1,' c',i1,' d',i1,' e',i1,' f',i1,

+' g',i1,' h',i1)

goto 5

4 m(i)=m(i)+1

if(m(i).lt.9) goto 1

m(i)=1

5 i=i-1

if(i.gt.0) goto 4

stop

end