Ruby solves the sudoku Problem

DetailsAlgorithmPeter norvig has already made it very clear, so I won't be jealous. Beginner Ruby trainer.

 

ClassSudoku
Width= 9
Height= 9
Unit= 3
Def initialize ()
Init_dependency_table ()
End

Def OK (quiz_candidates)
Quiz_candidates.find () {| candidate. length> 1 }== Nil
End

Def deduce (quiz_candidates)
Do_something = false
First = true
Li = 0
Until (! First &&! Do)
Li + = 1
First = false
Do_something = false
(0 .. 80). Each () Do | I |
Candidate = quiz_candidates [I]
# For each square, if it has more than one candidate, try elimate it
If Candidate. length> 1
@ Dependency [I]. Each () Do | Depend_square |
Square_values = quiz_candidates [depend_square]
# Travel its dependent square to see if the square has only one candiate
# If yes, elimate it from out candidate
If (Square_values.length = 1 & candidate. Delete (square_values [0])! = Nil)
Do_…… = true
End
End
End
End
End
End

Def process (quiz_candidates)
Deduce (quiz_candidates)
Bad = quiz_candidates.find {| c | C. length> 1}
If Bad = Nil
Return True
Else
Bad2 = bad. DUP
Bad2.each Do | D |
Bad. Delete (d)
If Process (quiz_candidates)
Return True
Else
Bad. Push (d)
End
End
End
Return Fasle
End
Def solve (quiz)
Quiz_candidates = quiz. Scan (/./). Map () {| S. to_ I}. Map () {| I = 0? Array (1 .. 9): [I]}
If Process (quiz_candidates)
Array (0 .. 8). Map () Do | Line |
Puts quiz_candidates [LINE * Width , Width ]. Flatten (). Join (",")
End
Else
Puts "can't solve"
End
End

Def init_dependency_table ()
Groups = []
Groups + = (0 .. Height -1). Map () {| I | array (I * Width ... (I + 1 )* Width )}
Groups + = (0 .. Width -1). Map () {| I | (0 .. 8). Map () {| j * Width + I }}
Groups + = [0, 27, 54, 3, 30, 57, 6, 33, 60]. Map () Do | I |
[I, I + 1, I + 2, I + Width , I + Width + 1, I + Width + 2, I + 2 * Width , I + 2 * Width + 1, I + 2 * Width + 2]
End
@ Dependency =Array . New ( Width * Height )
0. upto (@ dependency. Length-1) Do | I |
@ Dependency [I] = []
Depends = []
Groups. Each () Do | Group |
If Group. index (I )! = Nil
DUP = group. DUP ()
DUP. Delete (I)
@ Dependency [I] + = DUP
End
End
@ Dependency [I]. uniq!
Puts "@ dependency [# {I}]: # {@ dependency [I]. Join (",")}"
End
End
End
Lines ="
4 ..... 8.5.3 .......... 7 ...... 2 ..... 6 ..... 8. 4 ...... 1 ....... 6.3.7.5 .. 2 ..... 1. 4 ......
52... 6 ......... 7. 13 ........... 4 .. 8 .. 6 ...... 5 ........... 418 ......... 3 .. 2... 87 .....
6 ..... 8.3.4.7 ................. 5.4.7.3 .. 2 ..... 1. 6 ....... 2 ..... 5 ..... 8. 6 ...... 1 ....
48. 3 ............ 71. 2 ....... 7. 5 .... 6 .... 2 .. 8 ............. 1. 76... 3 ..... 4 ...... 5 ....
.... 14 .... 3 .... 2... 7 .......... 9... 3.6.1 ............. 8. 2 ..... 1. 4 .... 5. 6 ..... 7. 8...
...... 52 .. 8. 4 ...... 3... 9... 5. 1... 6 .. 2 .. 7 ........ 3 ..... 6... 1 .......... 7. 4 ....... 3.
6.2.5 ......... 3. 4 .......... 43... 8 .... 1 .... 2 ........ 7 .. 5 .. 27 ........... 81... 6 .....
. 524 ......... 7. 1 .............. 8. 2... 3 ..... 6... 9. 5 ..... 1.6.3 ........... 897 ........
6.2.5 ......... 4. 3 .......... 43... 8 .... 1 .... 2 ........ 7 .. 5 .. 27 ........... 81... 6 .....
. 923 ......... 8. 1 ........... 1.7.4 ........... 658 ......... 6.5.2... 4 ..... 7 ..... 9 .....
6 .. 3. 2 .... 5 ..... 1 .......... 7. 26 ............ 543 ......... 8. 15 ........ 4. 2 ........ 7 ..
. 6.5.1.9.1... 9 .. 539 .... 7 .... 4. 8... 7 ....... 5.8.817.5.3 ..... 5. 2 ............ 76 .. 8...
.. 5... 987. 4 .. 5... 1 .. 7 ...... 2... 48 .... 9. 1 ..... 6 .. 2 ..... 3 .. 6 .. 2 ....... 9. 7 ....... 5 ..
3.6.7 ........... 518 ......... 1.4.5... 7 ..... 6 ..... 2 ...... 2 ..... 4 ..... 8. 3 ..... 5 .....
1 ..... 3.8.7.4 .............. 2.3.1 ........... 958 ......... 5. 6... 7 ..... 8. 2... 4 .......
6 .. 3. 2 .... 4 ..... 1 .......... 7. 26 ............ 543 ......... 8. 15 ........ 4. 2 ........ 7 ..
.... 3 .. 9 .... 2 .... 1.5.9 .............. 1.2.8.4.6.8.5... 2 .. 75 ...... 4. 1 .. 6 .. 3 ..... 4.6.
45 ..... 3 .... 8. 1 .... 9 ........... 5 .. 9. 2 .. 7 ..... 8 ......... 1 .. 4 .......... 7. 2... 6 .. 8 ..
. 237 .... 68... 6.59.9 ..... 7 ...... 4.97.3.7.96 .. 2 ......... 5 .. 47 ......... 2 .... 8 .......
.. 84... 3 .... 3 ..... 9 .... 157479... 8 ........ 7 .. 514 ..... 2... 9. 6... 2. 5 .... 4 ...... 9 .. 56
. 98. 1 .... 2 ...... 6 ............. 3.2.5 .. 84 ......... 6 ......... 4.8.93 .. 5 ........... 1 ..
.. 247 .. 58 .............. 1. 4 ..... 2... 9528.9.4 .... 9... 1 ......... 3. 3 .... 75 .. 685 .. 2...
4 ..... 8.5.3 .......... 7 ...... 2 ..... 6 ..... 5. 4 ...... 1 ....... 6.3.7.5 .. 2 ..... 1. 9 ......
. 2. 3 ...... 63 ..... 58 ....... 15 .... 9. 3 .... 7 ........ 1 .... 8. 879 .. 26 ...... 6. 7... 6 .. 7 .. 4
1 ..... 7.9.4... 72 .. 8 ......... 7 .. 1 .. 6. 3 ....... 5. 6 .. 4 .. 2 ......... 8 .. 53... 7.7.2 .... 46
4 ..... 3 ..... 8. 2 ...... 7 ........ 1... 8734 ....... 6 ........ 5... 6 ........ 1. 4... 82 ......
....... 71.2.8 ........ 4. 3... 7... 6 .. 5 .... 2 .. 3 .. 9 ........ 6... 7 ..... 8 .... 4 ...... 5 ....
6 .. 3. 2 .... 4 ..... 8 .......... 7. 26 ............ 543 ......... 8. 15 ........ 8. 2 ........ 7 ..
. 47. 8... 1 ............ 6 .. 7 .. 6 .... 357 ...... 5 .... 1 .. 6 .... 28 .. 4 ..... 9. 1... 4 ..... 2.69.
...... 8. 17 .. 2 ........ 5. 6 ...... 7... 5 .. 1 .... 3... 8 ....... 5 ...... 2 .. 4 .. 8 .... 6... 3 ....
38. 6 ....... 9 ....... 2 .. 3. 51 ...... 5 .... 3 .. 1 .. 6 .... 4 ...... 17. 5 .. 8 ....... 9 ....... 7.32
... 5 ........... 5. 697 ..... 2... 48. 2... 25. 1... 3 .. 8 .. 3 ......... 4. 7 .. 13. 5 .. 9 .. 2... 31 ..
. 2 ....... 3.5.62 .. 9. 68... 3... 5 .......... 64.8.2 .. 47 .. 9 .... 3 ..... 1 ..... 6... 17. 43 ....
. 8 .. 4 .... 3 ...... 1 ........ 2... 5... 4. 69 .. 1 .. 8 .. 2 ........... 3. 9 .... 6 .... 5 ..... 2 .....
.. 8.9.1... 6. 5... 2 ...... 6 .... 3.1.7.5 ......... 9 .. 4... 3... 5 .... 2... 7... 3.8.2 .. 7 .... 4
4 ..... 5.8.3 .......... 7 ...... 2 ..... 6 ..... 5. 8 ...... 1 ....... 6.3.7.5 .. 2 ..... 1. 8 ......
1 ..... 3.8.6.4 .............. 2.3.1 ........... 958 ......... 5. 6... 7 ..... 8. 2... 4 .......
1 .... 6. 8 .. 64 .......... 4... 7 .... 9. 6... 7. 4 .. 5 .. 5... 7. 1... 5 .... 32. 3 .... 8... 4 ........
249. 6... 3. 3 .... 2 .. 8 ....... 5 ..... 6 ...... 2 ...... 1 .. 4. 82 .. 9. 5 .. 7 .... 4 ..... 1. 7... 3...
... 8 .... 9. 873... 4. 6 .. 7 ....... 85 .. 97 ........... 43 .. 75 ....... 3 .... 3... 145. 4 .... 2 .. 1
... 5. 1 .... 9 .... 8... 6 ....... 4. 1 .......... 7 .. 9 ........ 3. 8 ..... 1. 5... 2 .. 4 ..... 36 ....
...... 8. 16 .. 2 ........ 7. 5 ...... 6... 2 .. 1 .... 3... 8 ....... 2 ...... 7 .. 3 .. 8 .... 5... 4 ....
. 476... 5.8.3 ..... 2 ..... 9 ...... 8. 5 .. 6... 1 ..... 6. 24 ...... 78... 51... 6 .... 4 .. 9... 4 .. 7
..... 7. 95 ..... 1... 86 .. 2 ..... 2 .. 73 .. 85 ...... 6... 3 .. 49 .. 3. 5... 41724 ................
. 4. 5 ..... 8... 9 .. 3 .. 76. 2 ..... 146 .......... 9 .. 7 ..... 36 .... 1 .. 4. 5 .. 6 ...... 3 .. 71 .. 2 ..
. 834 ......... 7 .. 5 ........... 4.1.8 .......... 27... 3 ..... 2.6.5 .... 5 ..... 8 ........ 1 ..
.. 9 ..... 3 ..... 9... 7 ..... 5. 6 .. 65 .. 4 ..... 3 ...... 28 ...... 3 .. 75. 6 .. 6 ........... 12.3.8
. 26. 39 ...... 6 .... 19 ..... 7 ....... 4 .. 9. 5 .... 2 .... 85 ..... 3 .. 2 .. 9 .. 4 .... 762 ......... 4
2.3.8 .... 8 .. 7 ........... 1... 6.5.7... 4 ...... 3 .... 1 ............ 82. 5 .... 6... 1 .......
6 .. 3. 2 .... 1 ..... 5 .......... 7. 26 ............ 843 ......... 8. 15 ........ 8. 2 ........ 7 ..
1 ..... 9... 64 .. 1. 7 .. 7 .. 4 ....... 3 ..... 3. 89 .. 5 .... 7 .... 2 ..... 6.7.9 ..... 4. 1 .... 129.3.
......... 9 ...... 84. 623... 5 .... 6... 453... 1... 6... 9... 7 .... 1 ..... 4. 5 .. 2 .... 3. 8 .... 9
. 2 .... 5938 .. 5 .. 46. 94 .. 6... 8 .. 2. 3 ..... 6 .. 8.73.7 .. 2 ......... 4. 38 .. 7 .... 6 .......... 5
9. 4 .. 5... 25. 6 .. 1 .. 31 ...... 8. 7... 9... 4 .. 26 ...... 147 .... 7 ....... 2... 3 .. 8.6.4 ..... 9.
... 52 ..... 9... 3 .. 4 ...... 7... 1 ..... 4 .. 8 .. 453 .. 6... 1... 87. 2 ........ 8 .... 32. 4 .. 8 .. 1.
53 .. 2. 9... 24. 3 .. 5... 9 .......... 1. 827... 7 ......... 981 ............. 64 .... 91.2.5.43.
1 .... 786... 7 .. 8.1.8 .. 2 .... 9 ........ 24... 1 ...... 9 .. 5... 6. 8 .......... 5. 9 ....... 93.4
.... 5... 11 ...... 7 .. 6 ..... 8 ...... 4 ..... 9.1.3 ..... 596. 2 .. 8 .. 62 .. 7 .. 7 ...... 3.5.7.2 ..
. 47. 2 .... 8 .... 1 .... 3 .... 9. 2 ..... 5... 6 .. 81 .. 5 ..... 4 ..... 7 .... 3. 4... 9... 1. 4 .. 27. 8 ..
...... 94 ..... 9... 53 .... 5. 7 .. 8. 4 .. 1 .. 463 ........... 7.8.8 .. 7 ..... 7 ...... 28.5.26 ....
. 2 ...... 6 .... 41 ..... 78 .... 1 ...... 7 .... 37 ..... 6 .. 412 .... 1 .. 74 .. 5 .. 8. 5 .. 7 ...... 39 ..
1 ..... 3.8.6.4 .............. 2.3.1 ........... 758 ......... 7. 5... 6 ..... 8. 2... 4 .......
2 .... 1. 9 .. 1 .. 3. 7 .. 9 .. 8... 2 ....... 85 .. 6. 4 ......... 7... 3.2.3... 6 .... 5 ..... 1. 9... 2.5
.. 7 .. 8 ..... 6.2.3... 3 ...... 9. 1 .. 5 .. 6 ..... 1 ..... 7. 9 .... 2 ........ 4. 83 .. 4... 26 .... 51.
... 36 .... 85 ....... 9. 4 .. 8 ........ 68 ......... 17 .. 9 .. 45... 1. 5... 6. 4 .... 9 .. 2 ..... 3...
34. 6 ....... 7 ....... 2 .. 8. 57 ...... 5 .... 7 .. 1 .. 2 .... 4 ...... 36. 2 .. 1 ....... 9 ....... 7.82
...... 4. 18 .. 2 ........ 6. 7 ...... 8... 6 .. 4 .... 3... 1 ....... 6 ...... 2 .. 5 .. 1 .... 7... 3 ....
. 4 .. 5 .. 67... 1... 4 .... 2 ..... 1 .. 8 .. 3 ........ 2... 6 ........... 4 .. 5. 3 ..... 8 .. 2 ........
....... 4... 2 .. 4 .. 1. 7 .. 5 .. 9... 3 .. 7 .... 4 .. 6 .... 6 .. 1 .. 8... 2 .... 1 .. 85. 9... 6 ..... 8... 3
8 .. 7 .... 4. 5 .... 6 ............ 3. 97... 8 .... 43 .. 5 .... 2. 9 .... 6 ...... 2... 6... 7. 71 .. 83.2
. 8... 4. 5 .... 7 .. 3 ............ 1 .. 85... 6 ..... 2 ...... 4 .... 3. 26 ............ 417 ........
.... 7 .. 8... 6... 5... 2... 3.61.1... 7 .. 2 .. 8 .. 534. 2 .. 9 ....... 2 ...... 58... 6.3.4... 1 ....
...... 8. 16 .. 2 ........ 7. 5 ...... 6... 2 .. 1 .... 3... 8 ....... 2 ...... 7 .. 4 .. 8 .... 5... 3 ....
. 2 .......... 6 .... 3.74.8 ......... 3 .. 2. 8 .. 4 .. 1. 6 .. 5 ......... 1.78.5 .... 9 .......... 4.
. 52 .. 68 ....... 7. 2 ....... 6 .... 48 .. 9 .. 2 .. 41 ...... 1 ..... 8 .. 61 .. 38 ..... 9... 63 .. 6 .. 1.9
.... 1.78.5 .... 9 .......... 4 .. 2 .......... 6 .... 3.74.8 ......... 3 .. 2. 8 .. 4 .. 1. 6 .. 5 .....
1 ....... 3.6.3 .. 7... 7... 5 .. 121. 7... 9... 7 ........ 8. 1 .. 2 .... 8. 64 .... 9. 2 .. 6 .... 4 .....
4... 7. 1 .... 19.46.5 ..... 1 ...... 7 .... 2 .. 2. 3 .... 847 .. 6 .... 14... 8.6.2 .... 3 .. 6... 9 ....
...... 8. 17 .. 2 ........ 5. 6 ...... 7... 5 .. 1 .... 3... 8 ....... 5 ...... 2 .. 3 .. 8 .... 6... 4 ....
963 ...... 1 .... 8 ...... 2. 5 .... 4. 8 ...... 1 .... 7 ...... 3 .. 257 ...... 3... 9.2.4.7 ...... 9 ..
15. 3 ...... 7 .. 4. 2 .... 4. 72 ..... 8 ......... 9 .. 1.8.1 .. 8. 79 ...... 38 ........... 6 .... 7423
.......... 5724... 98 .... 947... 9 .. 3... 5 .. 9 .. 12... 3.1.9... 6 .... 25 .... 56 ..... 7 ...... 6
.... 75 .... 1 .. 2 ..... 4... 3... 5 ..... 3. 2... 8... 1 ....... 6 ..... 1 .. 48. 2 ........ 7 ........
6 ..... 7.3.4.8 ................. 5.4.8.7 .. 2 ..... 1. 3 ....... 2 ..... 5 ..... 7. 9 ...... 1 ....
.... 6... 4 .. 6. 3 .... 1 .. 4 .. 5. 77 ..... 8. 5... 8 ..... 6. 8 .... 9... 2. 9 .... 4 .... 32 .... 97 .. 1 ..
. 32 ..... 58 .. 3 ..... 9. 428... 1... 4... 39... 6... 5 ..... 1 ..... 2... 67. 8 ..... 4 .... 95 .... 6.
... 5. 3 ....... 6. 7 .. 5. 8 .... 1636 .. 2 ....... 4. 1 ....... 3... 567 .... 2. 8 .. 4. 7 ....... 2 .. 5 ..
. 5.3.7.4.1 ......... 3 ....... 5.8.3.61 .... 8 .. 5.9.6 .. 1 ........ 4... 6... 6927 .... 2... 9 ..
.. 5 .. 8 .. 18 ...... 9 ....... 78 .... 4 ..... 64 .... 9 ...... 53 .. 2. 6 ......... 138 .. 5 .... 9.714.
.......... 72.6.1 .... 51... 82. 8... 13 .. 4 ......... 37. 9 .. 1 ..... 238 .. 5. 4 .. 9 ......... 79.
... 658 ..... 4 ...... 12 ............ 96. 7... 3 .. 5 .... 2. 8... 3 .. 19 .. 8 .. 3. 6 ..... 4 .... 473 ..
. 2. 3 ....... 6 .. 8.9.83.5 ........ 2... 8.7.9 .. 5 ........ 6 .. 4 ....... 1... 1... 4. 22 .. 7 .. 8.9
. 5 .. 9 .... 1 ..... 6 ..... 3. 8 ..... 8. 4... 9514 ....... 3 .... 2 .......... 4. 8... 6 .. 77 .. 15 .. 6.
..... 2 ....... 7... 17 .. 3... 9. 8 .. 7 ...... 2.89.6... 13 .. 6 .... 9 .. 5. 824 ..... 891 ..........
3... 8 ....... 7 .... 51 .............. 36... 2 .. 4 .... 7 ........... 6. 13 .. 452 ........... 8 ..
"

Sudoku =Sudoku. New
Lines. gsub (".", "0"). Split (/\ s/). MapDo| Line |
Line. Strip
Puts line
IfLine. Length = 81
Sudoku. Solve (line)
End
Puts
End

# Ref http://norvig.com/sudoku.html