Sudoku Solver - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|719\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Sudoku Solver
Fri, 03 Oct 2008, 18:50
dna	Here's something that you should find interesting. Graphics 900, 900, 32, 2 SetBuffer BackBuffer() AppTitle "Sudoku solver" SetFont LoadFont("Arial Black", 90, True) Dim Grid(9, 9), Pos(9, 9, 9) LoadLevel("Level1.txt") Select 1 ;<========== set to '2' to see slow motion! Case 1 ms = MilliSecs() Repeat UpdatePos() ApplyPos() Until IsSolved() ms = MilliSecs() - ms AppTitle "SOLVED in " + ms + " ms." DrawLevel() Case 2 Repeat Cls DrawLevel() UpdatePos() ApplyPos() Delay 300 Until IsSolved() AppTitle "SOLVED." DrawLevel() End Select WaitKey() End Function LoadLevel(path$) file = ReadFile(path$) For y = 1 To 9 l$ = ReadLine(file) For x = 1 To 9 Grid(x, y) = Mid(l$, x, 1) For i = 1 To 9 Pos(x, y, i) = True Next Next Next CloseFile file End Function Function DrawLevel() Cls Color 255, 255, 255 For x = 1 To 9 For y = 1 To 9 ch$ = Grid(x, y) If ch$ = 0 Then ch$ = " " Text x * 90 - 30, y * 90 - 30, ch$ Next Next Color 127, 127, 127 For x = 0 To 2 For y = 0 To 2 Rect 40 + x * 270, 55 + y * 270, 271, 271, False Next Next Flip 0 End Function Function UpdatePos() ;Rows For y = 1 To 9 For x = 1 To 9 For i = 1 To 9 If Grid(i, y) Then Pos(x, y, Grid(i, y)) = False EndIf Next Next Next ;Cols For x = 1 To 9 For y = 1 To 9 For i = 1 To 9 If Grid(x, i) Then Pos(x, y, Grid(x, i)) = False EndIf Next Next Next ;Fields For y = 1 To 9 Select y Case 1, 2, 3: fy = 1 Case 4, 5, 6: fy = 4 Case 7, 8, 9: fy = 7 End Select For x = 1 To 9 Select x Case 1, 2, 3: fx = 1 Case 4, 5, 6: fx = 4 Case 7, 8, 9: fx = 7 End Select For i = fx To fx + 2 For a = fy To fy + 2 If Grid(i, a) Then Pos(x, y, Grid(i, a)) = False EndIf Next Next Next Next End Function Function ApplyPos() For x = 1 To 9 For y = 1 To 9 cnt = 0 For i = 1 To 9 If Pos(x, y, i) Then cnt = cnt + 1 res = i EndIf Next If cnt = 1 And Grid(x, y) = 0 Then Grid(x, y) = res EndIf Next Next End Function Function IsSolved() For x = 1 To 9 For y = 1 To 9 If Grid(x, y) = 0 Then Return False Next Next Return True End Function --v -=-=- DNA
Sat, 04 Oct 2008, 17:14
dna	I think that has a logic error. Devils child forgot to make it do the simplest solution. -=-=- DNA
Sat, 04 Oct 2008, 18:38
mindstorm8191	I wanted to make a giant sudoku game, but couldn't figure out how to generate proper sudoku puzzles. I had a download game that let me fill it out, but I was used to being able to put more than 1 value in each block until I could solve the puzzle. So I was trying to make my own, but I didn't get too far. Anyone know how to generate a sudoku puzzle? -=-=- Vesuvius web game
Sat, 04 Oct 2008, 18:43
dna	If you mean for the code above its 9 across and 9 down in a text file. 53..7.... 6..195... .98....6. 8...6...3 4..8.3..1 7...2...6 .6....28. ...419..5 ....8..79 This is one that works. -=-=- DNA
Sat, 04 Oct 2008, 18:59
mindstorm8191	dna: no, I'm talking about a system that would generate a sudoku puzzle, not something that loads things in from a text file. I wouldn't want to limit players to 100 or something puzzles... and I wouldn't want the hassle of trying to make / find working puzzles. -=-=- Vesuvius web game
Sat, 11 Oct 2008, 16:00
dna	Oh. I see what you mean. that code modified should be able to do it. My reason for posting it was to show that it does solve a valid sudoku but, it should also be able to put any numbers into a blank one that would solve the puzzle, which it does not do. The original author was vague with his description and I thought it would. -=-=- DNA