Sudoku: Difference between revisions

Content deleted Content added
Bernie (talk | contribs)
m →‎{{header|FutureBasic}}: remove 'dim as'
Chkas (talk | contribs)
Line 3,200: Line 3,200:
.
.
.
.
call init
init
#
#
proc display . .
proc display . .
Line 3,223: Line 3,223:
if pos > 81
if pos > 81
# solved
# solved
call display
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
call solve pos + 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
.
.
call solve 1
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>