Sudoku: Difference between revisions
Content deleted Content added
m →{{header|FutureBasic}}: remove 'dim as' |
|||
Line 3,200: | Line 3,200: | ||
. |
. |
||
. |
. |
||
init |
|||
# |
# |
||
proc display . . |
proc display . . |
||
Line 3,223: | Line 3,223: | ||
if pos > 81 |
if pos > 81 |
||
# solved |
# solved |
||
display |
|||
break 1 |
break 1 |
||
. |
. |
||
Line 3,238: | Line 3,238: | ||
col[c + d] = 1 |
col[c + d] = 1 |
||
box[b + d] = 1 |
box[b + d] = 1 |
||
solve pos + 1 |
|||
row[r + d] = 0 |
row[r + d] = 0 |
||
col[c + d] = 0 |
col[c + d] = 0 |
||
Line 3,246: | Line 3,246: | ||
grid[pos] = 0 |
grid[pos] = 0 |
||
. |
. |
||
solve 1 |
|||
# |
# |
||
input_data |
input_data |
||
Line 3,260: | Line 3,260: | ||
9 6 0 0 1 0 3 0 0 |
9 6 0 0 1 0 3 0 0 |
||
0 5 0 6 9 0 0 1 0 |
0 5 0 6 9 0 0 1 0 |
||
</syntaxhighlight> |
</syntaxhighlight> |
||