Sha256: c86fe2ef77f555dbc0584a2f6ebd20e722b8abfeab7955e57e3260a4a74f42a5
Contents?: true
Size: 623 Bytes
Versions: 7
Compression:
Stored size: 623 Bytes
Contents
PROGRAM QUEENS
IMPLICIT NONE
CHARACTER*2 BOARD(8,8)
INTEGER X,Y,I
LOGICAL POSSIBLE
X=2
Y=3
CALL NEW(BOARD)
DO I=1,1
POSSIBLE=.FALSE.
X=4
Y=5
C X=int(rand(0)*8)+1
C Y=int(rand(0)*8)+1
CALL TEST(BOARD,X,Y,POSSIBLE)
IF (POSSIBLE) THEN
CALL SET(BOARD,X,Y)
CALL RANGED(BOARD,X,Y)
ENDIF
ENDDO
CALL SHOW(BOARD)
END
Version data entries
7 entries across 7 versions & 1 rubygems