Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -7,9 +7,7 @@ proc init .
|
|||
for pos = 1 to 81
|
||||
if pos mod 9 = 1
|
||||
s$ = input
|
||||
if s$ = ""
|
||||
s$ = input
|
||||
.
|
||||
if s$ = "" : s$ = input
|
||||
len inp[] 0
|
||||
for i = 1 to len s$
|
||||
if substr s$ i 1 <> " "
|
||||
|
|
@ -34,22 +32,14 @@ init
|
|||
proc display .
|
||||
for i = 1 to 81
|
||||
write grid[i] & " "
|
||||
if i mod 3 = 0
|
||||
write " "
|
||||
.
|
||||
if i mod 9 = 0
|
||||
print ""
|
||||
.
|
||||
if i mod 27 = 0
|
||||
print ""
|
||||
.
|
||||
if i mod 3 = 0 : write " "
|
||||
if i mod 9 = 0 : print ""
|
||||
if i mod 27 = 0 : print ""
|
||||
.
|
||||
.
|
||||
#
|
||||
proc solve pos .
|
||||
while grid[pos] <> 0
|
||||
pos += 1
|
||||
.
|
||||
while grid[pos] <> 0 : pos += 1
|
||||
if pos > 81
|
||||
# solved
|
||||
display
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue