TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Math / Physics

Version: 1.0

Information

Uploaded: 18th Dec 2005 21:43

Modified: 3rd Jan 2006 21:58

Author: Cyborg 572

Summary

solves sudoku puzzles

Full Description

thsi code will solve a sudoku puzzle, just follow the instunctions to enter the puzzle, it should run once, if the puzzle is not solved, press space to check some more. if the program returns the same result after pressing a few times, then the puzzle has multiple answers. press control to get around this problem (basically pick the first number that could fit in the first unsolved square). colours white: unsoved red: given blue solved once all the numbers are either red or blue, press shift to draw in the gris

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Sudoku Solver

Dim p(9,9,9)

`allow these commands, and rem out the input loop for a test puzzle

`p(1,1,1)=2 : p(6,1,5)=2 : p(9,1,4)=2

`p(1,2,9)=2 : p(3,2,6)=2 : p(4,2,4)=2 : p(6,2,3)=2 : p(8,2,7)=2 : p(9,2,8)=2

`p(1,3,4)=2 : p(6,3,9)=2 : p(8,3,3)=2

`p(3,4,9)=2 : p(5,4,8)=2 : p(6,4,6)=2 : p(7,4,7)=2

`p(1,5,8)=2 : p(3,5,7)=2 : p(4,5,9)=2 : p(8,5,1)=2 : p(9,5,2)=2

`p(2,6,6)=2 : p(4,6,7)=2 : p(7,6,8)=2

`p(2,7,9)=2 : p(3,7,8)=2 : p(6,7,7)=2 : p(7,7,1)=2 : p(8,7,2)=2

`p(1,8,6)=2 : p(4,8,1)=2 : p(5,8,9)=2 : p(7,8,3)=2

`p(2,9,3)=2 : p(4,9,6)=2 : p(7,9,4)=2

`input the puzzle

For y = 1 to 9

for x = 1 to 9

for n = 1 to 9

if p(x,y,n)=2 then goto skip6

next n

CLS

Print "Column: "; : Print x

Print "Row:    "; : Print y

Print "Press the number you wish"

Print "to insert. Press shift to "

Print "to leave a blank space."

for n = 1 to 9

IF inkey$() = str$(n)

p(x,y,n)=2

goto skip6

endif

next n

IF inkey$() = "0" then exit

Loop

`		sleep 500

skip6:

`	sleep 500

next x

next y

run_it:

cls

gosub Pos

gosub PCon

`Wait key

redo:

cls

gosub SinCle

gosub Pos

gosub Pcon

`Wait key

cls

gosub RowCle

gosub Pos

gosub Pcon

`Wait key

cls

gosub ColCle

gosub Pos

gosub PCon

`Waitkey

cls

gosub GriCle

gosub Pos

gosub PCon

if spacekey()=1 Then goto redo

if shiftkey()=1 then goto table

if controlkey()=1 then gosub p1

loop

Pos:

`start solving by finding all posibilities for a square

For x =  1 to 9

for y = 1 to 9

for n = 1 to 9

if p(x,y,n)>1 then goto skip1

next n

for n = 1 to 9

IF p(x,y,n)<0

goto skip2

ELSE

Gosub Check

if p(x,y,n)=0 then text (20*x)+3,(20*y)+3,str$(n)

endif

skip2:

next n

skip1:

next y

next c

SinCle:

`find squares containing only one posibilty

For x = 1 to 9

for y = 1 to 9

for n=1 to 9

if p(x,y,n)>1 then goto skip3

next n

numof = 0

for n=1 to 9

if p(x,y,n)=0 then inc numof

next n

if numof = 1

for n=1 to 9

if p(x,y,n)=0 then p(x,y,n)=3

next n

endif

skip3:

next y

Next x

RETURN

RowCle:

`check if n is only instance of number in row

For y = 1 to 9

for n = 1 to 9

for x = 1 to 9

if p(x,y,n)>1 then goto skip4

next x

numof=0

for x = 1 to 9

if p(x,y,n)=0 then inc numof

next x

if numof = 1

for x=1 to 9

if p(x,y,n)=0 then p(x,y,n)=3

next x

endif

skip4:

next n

Next y

RETURN

ColCle:

`check if n is only instance of number in row

For x = 1 to 9

for n = 1 to 9

for y = 1 to 9

if p(x,y,n)>1 then goto skip5

next y

numof=0

for y = 1 to 9

if p(x,y,n)=0 then inc numof

next y

if numof = 1

for y=1 to 9

if p(x,y,n)=0 then p(x,y,n)=3

next y

endif

skip5:

next n

Next x

RETURN

GriCle:

`check if n is only instance of nuber in 3x3 grid

for x = 1 to 9

for y = 1 to 9

for n=1 to 9

if p(x,y,n)>1 then goto skip7

next n

for n = 1 to 9

If x < 4 and x>0 : grl=1 : grh=3 : endif

If x < 7 and x>3 : grl=4 : grh=6 : endif

If x < 10 and x>6 : grl=7 : grh=9 : endif

If y < 4 and y>0 : gcl=1 : gch=3 : endif

If y < 7 and y>3 : gcl=4 : gch=6 : endif

If y < 10 and y>6 : gcl=7 : gch=9 : endif

numof = 0

for gr = grl to grh

for gc = gcl to gch

if p(gr,gc,n)= 0 then inc numof

next gc

next gr

if numof = 1

for gr = grl to grh

for gc = gcl to gch

if p(gr,gc,n)=0 then p(gr,gc,n)=3

next gc

next gr

endif

next n

skip7:

next y

next x

RETURN

P1:

for x = 1 to 9

for y = 1 to 9

for n = 1 to 9

if p(x,y,n)>1 then goto skip8

next n

for n = 1 to 9

if p(x,y,n)=0 : p(x,y,n)=3 : goto run_it : endif

next n

skip8:

next y

next x

RETURN

Check:

Gosub CRow

`debugging

`	print "row checked"

`	print n

`	print p(x,y,n)

`	wait key

if p(x,y,n)=-1

Return

ELSE

Gosub CCOl

ENDIF

`debugging

`	print "column checked"

`	print n

`	print p(x,y,n)

`	wait key

IF p(x,y,n)=-1

RETURN

ELSE

Gosub CGri

ENDIF

`debugging

`	print "grid checked"

`	print n

`	print p(x,y,n)

`	wait key

RETURN

CRow:

`check current row to see if number already exists

For r = 1 to 9

if r <> x

if p(r,y,n) > 1

p(x,y,n)=-1

RETURN

Endif

endif

Next R

RETURN

CCol:

`check cuurent column to see if number already exists

For c = 1 to 9

if c <> y

if p(x,c,n) > 1

p(x,y,n)=-1

RETURN

Endif

endif

next c

RETURN

CGri:

`check the 3 by 3 grid to see if the number already exists

If x < 4 and x>0 : grl=1 : grh=3 : endif

If x < 7 and x>3 : grl=4 : grh=6 : endif

If x < 10 and x>6 : grl=7 : grh=9 : endif

If y < 4 and y>0 : gcl=1 : gch=3 : endif

If y < 7 and y>3 : gcl=4 : gch=6 : endif

If y < 10 and y>6 : gcl=7 : gch=9 : endif

for gr = grl to grh

for gc = gcl to gch

if gr <> x and gc <> y

if p(gr,gc,n)>1

p(x,y,n)=-1

return

else

p(x,y,z)=1

endif

next gc

next gr

RETURN

PCon:

For x = 1 TO 9

For y = 1 TO 9

for n = 1 To 9

ink RGB(255,0,0),0

IF p(x,y,n)=2 Then Text (20*x)+3,(20*y)+3,str$(n)

ink RGB(0,0,255),0

IF p(x,y,n)=3 Then Text (20*x)+3,(20*y)+3,str$(n)

next n

next y

Next x

ink RGB(255,255,255),0

RETURN

table:

INK RGB(0,255,0),0

For tx= 1 to 10

line tx*20,20,tx*20,200

next tx

for ty= 1 to 10

line 20,ty*20,200,ty*20

next ty

INK RGB(255,0,255),0

For tx= 0 to 3

line (tx*60)+20,20,(tx*60)+20,200

line (tx*60)+19,20,(tx*60)+19,200

line (tx*60)+21,20,(tx*60)+21,200

next ty

For ty= 0 to 3

line 20,(ty*60)+20,200,(ty*60)+20

line 20,(ty*60)+19,200,(ty*60)+19

line 20,(ty*60)+21,200,(ty*60)+21

next ty

wait key

end

Download

Please login to download

Comments

No comments yet.

CodeBase - Sudoku solver

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Cyborg 572
CodeBase Entries:	1